Copia di una directory di file può essere automatizzata in Visual Basic 6 utilizzando il File System Object, che è incluso come un oggetto in Visual Basic.

istruzione

1 Aprire il programma di editor di Visual Basic.

2 Creare un nuovo file cliccando su "File", quindi "Nuovo".

3 Creare un'istanza di FileSystemObject utilizzando il codice seguente:

Dim UST, lima

Set objFSO = CreateObject ( "Scripting.FileSystemObject")

Questo codice chiama un oggetto incorporato in Visual Basic 6.

4 Impostare la cartella di origine e la cartella di destinazione dove si copiare i file:

strSourceFolder = "c: \ MyImportantData"

strDestFolder = "c: \ MyBackupFolder"

5 Aprire il ciclo per tutti i file nella directory dei sorgenti:

Per ogni objFiles In objFSO.GetFolder (strSource) .Files

6 Controllare che ogni file ha un attributo impostato per archiviare e chiudere il ciclo aperto di cui sopra:

Se objFiles.attributes e 32 Allora

7 Aggiungere il codice per copiare tutti i file di archivio dall'origine alla destinazione:

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

objFiles.attributes = objFiles.attributes - 32

8 Chiudere il ciclo e alla fine del Sub:

Altro

' Archive atribute not set

Finisci se

End Sub

9 Salvare il file come un file .exe ed eseguire il file per copiare tutti i file archiviati.