Copiando um diretório de arquivos pode ser automatizado em Visual Basic 6 usando o File System Object , que está incluído como um objeto no Visual Basic. Coisas que você precisa
Visual Basic 6
Show Mais instruções
1

Abra seu programa editor de Visual Basic.
2

Criar um novo arquivo clicando em " arquivo", depois "New".
3

Criar uma instância do FileSystemObject usando o seguinte código: Dim fso

, arquivo < br > Definir

objFSO = CreateObject (" Scripting.FileSystemObject " )

Este código chama um objeto interno em Visual Basic 6.
4

Defina a pasta de origem ea pasta de destino onde você irá copiar os arquivos :

strSourceFolder = "c : \\ MyImportantData "

strDestFolder = "c : \\ MyBackupFolder "
5

Abra o laço para todos os arquivos no diretório de origem : .

para Cada objFiles em objFSO.GetFolder ( strSource ) arquivos
6

Verifique que cada arquivo tem um atributo definido para arquivar e fechar o circuito aberto acima :

Se objFiles.attributes e 32 Então
7

Adicione o código para copiar todos os arquivos de arquivo da origem para o destino :

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

objFiles.attributes = objFiles.attributes - 32

8

Fechar o ciclo e acabar com a Sub:

Else

' Arquivo atribute não definir

End If End Sub

< br >
9

Salve o arquivo como um arquivo exe . e execute o arquivo para copiar todos os arquivos arquivados.