Kopiera en katalog med filer kan automatiseras i Visual Basic 6 med Object File System , vilket ingår som ett objekt i Visual Basic . Saker du behöver Review, Visual Basic 6
Visa fler instruktioner
1
Öppna Visual Basic Editor -programmet .
2
Skapa ett nytt fil genom att klicka på " File" och sedan " Nytt . " Addera 3
Skapa en instans av FileSystemObject med hjälp av följande kod :
Dim FSO , fil
Set objFSO = CreateObject ( " Scripting.FileSystemObject " ) katalog
koden anropar en inbyggd objekt i Visual Basic 6 .
4
Ange källa mappen och målmapp där du kommer att kopiera filerna :
strSourceFolder = " c : \\ MyImportantData "
strDestFolder = " c : \\ MyBackupFolder "
5
Öppna slingan för alla filer i källan katalogen : .
för varje objFiles i objFSO.GetFolder ( strSource ) filer
6
Kontrollera att varje fil har ett attribut som att arkivera och stäng loop öppnade ovan :
p Om objFiles.attributes och 32 Då
7
Lägg koden för att kopiera alla arkivfiler från källan till destinationen :
objFSO . CopyFile strSource & " \\ " & objFiles.Name , strDestination & "\\ " & objDir.Name & " \\ " & objFiles.Name , OVER_WRITE_FILES
objFiles.attributes = objFiles.attributes - 32
8
Stäng slingan och avsluta Sub :
Else
" Arkiv atribute inte satt
End If
End Sub
9
Spara filen som en . exe-fil och kör filen för att kopiera alla arkiverade filer .
