Cómo copiar todos los archivos en Visual Basic 6 con el atributo de archivo

Copia de un directorio de archivos puede ser automatizado en Visual Basic 6 con el objeto de sistema de archivos, que se incluye como un objeto en Visual Basic.

Instrucciones

1 Abra su programa editor de Visual Basic.

2 Crear un nuevo archivo haciendo clic en "Archivo", luego "Nuevo".

3 Crear una instancia de FileSystemObject utilizando el código siguiente:

Dim fso, archivo

Establecer objFSO = CreateObject ( "Scripting.FileSystemObject")

Este código llama a un objeto integrado en Visual Basic 6.

4 Establecer la carpeta de origen y la carpeta de destino donde copiar los archivos:

strSourceFolder = "c: \ MyImportantData"

strDestFolder = "c: \ MyBackupFolder"

5 Abrir el bucle para todos los archivos en el directorio de origen:

Para Cada objFiles En objFSO.GetFolder (strSource) .files

6 Compruebe que cada archivo tiene un conjunto de atributos para archivar y cerrar el bucle abierto anteriormente:

Si objFiles.attributes y 32 A continuación,

7 Agregue el código para copiar todos los archivos de almacenamiento desde el origen al destino:

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

objFiles.attributes = objFiles.attributes - 32

8 Cerrar el bucle y finalizar la Sub:

Más

' Archive atribute not set

Terminara si

End Sub

9 Guarde el archivo como un archivo .exe y ejecute el archivo para copiar todos los archivos guardados.