Verzeichnis kopieren von Dateien kann in Visual Basic 6 automatisiert werden mit dem File System Object , das als Objekt in Visual Basic enthalten ist. Things You
Visual Basic 6
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie Visual Basic -Editor-Programm .
2

Neues Datei, indem Sie auf "Datei ", dann " New ".
3

erstellen Sie eine Instanz des FileSystemObject mit dem folgenden Code: Dim fso

, file

Set objFSO = CreateObject (" Scripting.FileSystemObject " )

Dieser Code ruft ein eingebautes Objekt in Visual Basic 6 .
4

Stellen Sie den Quell-Ordner und die Zielordner, in dem Sie die Dateien zu kopieren wird :

strSourceFolder = "c: \\ MyImportantData "

strDestFolder = "c: \\ MyBackupFolder "
5

Öffnen Sie die Schlinge für alle Dateien in das Verzeichnis der Quellen : .

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

prüfen , dass jede Datei ein Attribut gesetzt zu archivieren und in der Nähe der Schleife geöffnet oben :

Wenn objFiles.attributes und 32 Dann
7

Fügen Sie den Code , um alle Archivdateien von der Quelle bis zum Ziel zu kopieren :

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

objFiles.attributes = objFiles.attributes - 32

8

Schließen Sie den Kreis und das Ende der Sub:

Else

'Archiv atribute nicht

Ende gesetzt Wenn

End Sub

9

Speichern Sie die Datei als . eXE-Datei und starten Sie die Datei, um alle archivierten Dateien zu kopieren.