Slik kopierer alle filer i Visual Basic 6 med arkivattributtet

Kopiering av en katalog med filer kan automatiseres i Visual Basic 6 bruker File System Object, som er inkludert som et objekt i Visual Basic.

Bruksanvisning

1 Åpne Visual Basic-redigering program.

2 Opprett en ny fil ved å klikke på "File" og deretter "Ny".

3 Opprett en forekomst av File ved hjelp av følgende kode:

Dim FSO, fil

Sett objFSO = Create ( "Scripting.FileSystemObject")

Denne koden kaller et innebygd objekt i Visual Basic 6.

4 Sett kildemappe og målmappe der du vil kopiere filene:

strSourceFolder = "c: \ MyImportantData"

strDestFolder = "c: \ MyBackupFolder"

5 Åpne sløyfe for alle filene i kilden katalogen:

For hver objFiles I objFSO.GetFolder (strSource) .Files

6 Sjekk at hver fil har en egenskap satt til å arkivere og lukke sløyfen åpnet ovenfor:

Hvis objFiles.attributes og 32 Deretter

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

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

objFiles.attributes = objFiles.attributes - 32

8 Lukke sløyfen og avslutte Sub:

Ellers

' Archive atribute not set

Slutt om

End Sub

9 Lagre filen som en .exe-fil og kjør filen for å kopiere alle de arkiverte filene.