Copie d'un répertoire de fichiers peut être automatisé en Visual Basic 6 en utilisant l'objet du système de fichiers , qui est inclus comme un objet en Visual Basic. Choses que vous devez
Visual Basic 6
Afficher plus Instructions
1

Ouvrez votre programme Visual Basic Editor .
2

Créer un nouveau fichier en cliquant sur " fichier", puis "Nouveau".
3

Créer une instance de FileSystemObject en utilisant le code suivant :

Dim fso , fichier < br >

Set objFSO = CreateObject (" Scripting.FileSystemObject " )

Ce code appelle un objet intégré dans Visual Basic 6 .
4

définir le dossier source et le dossier de destination où vous pourrez copier les fichiers :

strSourceFolder = " c: \\ MyImportantData "

strDestFolder = " c: \\ MyBackupFolder "
5

Ouvrez la boucle pour tous les fichiers dans le répertoire source : .

For Each objFiles en objFSO.GetFolder ( strSource ) Fichiers
6

Vérifiez que chaque fichier possède un attribut mis à archiver et fermez la boucle ouverte au-dessus :

Si objFiles.attributes et 32 ensuite
7

Ajoutez le code pour copier tous les fichiers d'archive de la source à la destination: Photos

objFSO . CopyFile strSource & "\\ " & objFiles.Name , strDestination & " \\" & objDir.Name & " \\ " & objFiles.Name , OVER_WRITE_FILES

objFiles.attributes = objFiles.attributes - 32

8

boucler la boucle et mettre fin à la sous-ensembles:

Else

' Archive atribute pas réglé

End If End Sub

< br > Photos 9

Enregistrez le fichier en tant que fichier . exe et exécutez le fichier pour copier tous les fichiers archivés.