Kopiering et bibliotek af filer kan automatiseres i Visual Basic 6 ved hjælp af File System Object , som er inkluderet som et objekt i Visual Basic. Ting du skal
Visual Basic 6
Vis Flere Instruktioner
1

Åbn din Visual Basic editor program.
2

Opret en ny fil ved at klikke på "File " og derefter " Ny".
3

Opret en instans af FileSystemObject ved at bruge følgende kode : Hej

Dim FSO , file < br >

Set objFSO = CreateObject ( " Scripting.FileSystemObject " )

Denne kode kalder en indbygget objekt i Visual Basic 6 .
4

Indstil kilden mappe og den destination mappe, hvor du vil kopiere filerne : Hej

strSourceFolder = " c: \\ MyImportantData "

strDestFolder = " c: \\ MyBackupFolder "
5

Åbn løkken for alle filerne i kildebiblioteket : .

for hver objFiles In objFSO.GetFolder ( strSource ) Files
6

Check , at hver fil har en attribut sat at arkivere og lukke loop åbnede ovenfor : Hej p Hvis objFiles.attributes og 32 Da
7

Føj koden for at kopiere alle arkivfiler fra kilden til destinationen : Hej

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

objFiles.attributes = objFiles.attributes - 32
< br > 8.

Luk løkken og afslutte Sub : Hej

Else

' Archive atribute ikke indstillet

End If

End Sub < br >
9

Gem filen som en. exe -fil og køre filen for at kopiere alle de arkiverede filer.