|
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.
|
