Cómo copiar todos los archivos en Visual Basic 6 con el Archivo Atributo

Copia de un directorio de los archivos se puede automatizar en Visual Basic 6 con el objeto de sistema de archivos , que se incluye como un objeto en Visual Basic . Cosas que necesitará
Visual Basic 6
Mostrar más instrucciones
1

Abre tu programa de edición de Visual Basic .
2

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

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

, archivo

Set objFSO = CreateObject ( " Scripting.FileSystemObject " )

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

Establecer la carpeta de origen y el carpeta de destino donde se va a copiar los archivos :

strSourceFolder = " c: \\ MyImportantData "

strDestFolder = " c: \\ MyBackupFolder "
5

Abra el bucle de todos los archivos en el directorio de origen : .

For Each objFiles en objFSO.GetFolder ( strSource ) Archivos
6

descubre que cada archivo tiene un conjunto de atributos de archivo y cierre la bucle abierto anteriormente:

Si objFiles.attributes y 32 Entonces
7

Agregue el código para copiar todos los ficheros de archivo de la fuente al destino :

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

objFiles.attributes = objFiles.attributes - 32

8

cerrar el ciclo y al final del Sub:

demás

' atribute Archivo no establece

End If End Sub

Página 9

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