Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako skopírovať všetky súbory vo Visual Basic 6 s atribútom Archive

Kopírovanie adresára súborov môže byť automatizovaný vo Visual Basic 6 pomocou objektu súborového systému , ktorý je súčasťou ako objekt v jazyku Visual Basic . Veci , ktoré budete potrebovať
Visual Basic 6
Zobraziť ďalšie inštrukcie Cestuj 1

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 .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené