Kopiering en katalog med filer kan automatiseres i Visual Basic 6 ved hjelp av File System Object , som inngår som et objekt i Visual Basic. Du trenger
Visual Basic 6
Vis flere instruksjoner
en

Åpne Visual Basic-redigering program .
2

Lag en ny filen ved å klikke på " File " og deretter " Ny".
3

Opprett en forekomst av FileSystemObject ved hjelp av følgende kode :

Dim FSO , fil

Set objFSO = CreateObject ( " Scripting.FileSystemObject ")

Denne koden kaller en innebygd objekt i Visual Basic 6 .
4

Sett kilden mappen og målmappen der du vil kopiere filene : en

strSourceFolder = "c : \\ MyImportantData "

strDestFolder = "c : \\ MyBackupFolder "
5

Åpne løkken for alle filene i kilden katalogen : .

for hver objFiles i objFSO.GetFolder ( strSource ) filer
6

Kontroller at hver fil har et attributt satt til å arkivere og lukke løkke åpnet ovenfor : en p Hvis objFiles.attributes og 32 Deretter
7

Legg inn koden for å kopiere alle arkivfiler fra kilden til målet : en

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

objFiles.attributes = objFiles.attributes - 32

8

Steng sløyfen og avslutte Sub : en

Else

' Arkiv attributt ikke satt

End If

End Sub

9

Lagre filen som en . exe -fil og kjøre filen å kopiere alle arkiverte filer .