Come copiare tutti i file in Visual Basic 6 con l'attributo Archive

Copia di una directory di file può essere automatizzata in Visual Basic 6 utilizzando l' oggetto del file system , che è incluso come un oggetto in Visual Basic . Cose che ti serviranno
Visual Basic 6
Show More Istruzioni
1

Aprite il vostro programma di editor di Visual Basic .
2

Creare un nuovo file facendo clic su "File ", quindi " Nuovo ".
3

Creare un'istanza di FileSystemObject utilizzando il seguente codice :

Dim fso , il file

objFSO = CreateObject ( " Scripting.FileSystemObject " ) per

Questo codice chiama un oggetto incorporato in Visual Basic 6 .
4

Impostare la cartella di origine e la cartella di destinazione in cui verranno copiati i file :

strSourceFolder = " c : \\ MyImportantData "

strDestFolder = " c : \\ MyBackupFolder "
5

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

For Each objFiles in objFSO.GetFolder ( strSource ) File
6

Verificare che ogni file ha un attributo impostato per archiviare e chiudere il anello aperto sopra :

objFiles.attributes e 32 Poi
7

Aggiungere il codice per copiare tutti i file di archivio dalla sorgente 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 terminare la Sub :

Else

' Archivio atribute non set

• QA Testing & Training Software 
• Come risolvere il fallito di aprire un set di righe di errore