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

Istruzioni

1

Aprire il programma di editor di Visual Basic.

2

Creare un nuovo file cliccando su "File", poi "Nuovo".

3

Creare un'istanza di FileSystemObject utilizzando il seguente codice:

Dim UST, file

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 desidera copiare i file:

strSourceFolder = "c:\MyImportantData"

strDestFolder = "c:\MyBackupFolder"

5

Aprire il ciclo per tutti i file nella directory di origine:

Per ogni objfile In objFSO.GetFolder(strSource). File

6

Verifica che ogni file ha un attributo impostato su archivio e chiudere il ciclo aperto sopra:

Se objFiles.attributes e 32 quindi

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 loop e terminare il Sub:

Altro

' Archive atribute not set

End If

End Sub

9

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