Het kopiëren van een map met bestanden kunnen worden geautomatiseerd in Visual Basic 6 met behulp van de File System Object , die is opgenomen als een object in Visual Basic . Wat je nodig hebt
Visual Basic 6
Toon Meer Aanwijzingen
1 Open uw Visual Basic- editor programma . Kopen van 2 Maak een nieuwe bestand door te klikken op " file " en vervolgens " Nieuw . "
3 Maak een instantie van de FileSystemObject met de volgende code :
Dim fso , bestand < br > Set objFSO = CreateObject ( " Scripting.FileSystemObject " ) op Twitter Deze code roept een ingebouwde object in Visual Basic 6 .
4 Stel de bronmap en de doelmap waarin u de bestanden kopiëren: strSourceFolder
= " c: \\ MyImportantData " strDestFolder
= " c: \\ MyBackupFolder "
5 Open de lus voor alle bestanden in de bron directory : .
voor Elke objFiles in objFSO.GetFolder ( strSource ) bestanden
Controleer 6 dat elk bestand heeft een attribuut ingesteld op archiveren en sluit de lus geopend hierboven :
Als objFiles.attributes en 32 dan
7 Voeg de code om alle archiefbestanden kopiëren van de bron naar de bestemming : objFSO
. CopyFile strSource & " \\ " & objFiles.Name , strDestination & " \\ " & objDir.Name & " \\ " & objFiles.Name , OVER_WRITE_FILES objFiles.attributes
= objFiles.attributes - 32
< br > 8 Sluit de lus en het einde van de Sub :
Else
' Archief atribute niet ingesteld End
Als End of Sub < br >
9 Sla het bestand op als een . exe- bestand en voer het bestand naar alle gearchiveerde bestanden te kopiëren .
|
