Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Editor jazyka Visual Basic program .
2
Vytvoriť nový súbor kliknutím na tlačidlo " súbor " a potom " Nový . "
3
Vytvoriť inštanciu FileSystemObject pomocou nasledujúci kód :
Dim FSO , obrázok
Nastaviť objFSO = CreateObject ( " Scripting.FileSystemObject " )
Tento kód volá vstavaný objekt vo Visual Basic 6.
4
Nastavte zdrojovú zložku a cieľovú zložku , kam sa bude kopírovať súbory :
strSourceFolder = "c : \\ MyImportantData "
strDestFolder = "c : \\ MyBackupFolder "
5
Otvorte slučku pre všetky súbory v zdrojovom adresári : .
každý objFiles v objFSO.GetFolder ( strSource ) súbory
6
zistiť , že každý súbor má nastavený atribút archivovať a uzavrieť slučka otvoril nad :
Ak objFiles.attributes a 32. Potom
7
Pridajte kód skopírovať všetky súbory archívu od zdroja k cieľu :
objFSO . CopyFile strSource & " \\ " & objFiles.Name , strDestination & " \\ " & objDir.Name & " \\ " & objFiles.Name , OVER_WRITE_FILES
objFiles.attributes = objFiles.attributes - 32
8
Uzavrite slučku a ukončiť Návrat :
Else
' Archív atribút nie je nastavený
End If
End Sub
9
Uložte súbor ako súbor . exe a spustite súbor skopírovať všetky archivované súbory .
Copyright © počítačové znalosti Všetky práva vyhradené