COPIAR TODOS OS ARQUIVOS

USUARIO.EXCLUIDOS 03/10/2006 15:48:39
#175335
Caros amigos,


Necessito copiar todos os arquivos e suas pastas de uma unidade de origem para destino, estou utilizando as seguintes linhas de código:

Private Sub Image2_Click()
    MkDir "c:\Quinelato_Cat"
    origem = Drive1.Drive + "\" + File1.Pattern
    destino = "c:\Quinelato_Cat\"
    FileCopy origem, destino
End Sub


O seguinte erro ocorre:

Run-Time error 52:

Bad file name or number.

O FileCopy somente pode ser utilizado para 1 arquivo apenas???

Grato.
USUARIO.EXCLUIDOS 03/10/2006 16:15:55
#175360
Tente:

Private Sub Image2_Click()
    MkDir "c:\Quinelato_Cat"
    origem = Drive1.Drive + "\" + File1.Pattern
    destino = "c:\Quinelato_Cat\*.*"
    FileCopy origem, destino
End Sub
USUARIO.EXCLUIDOS 03/10/2006 16:42:47
#175365


analiza este exemplo (peguei te terceiros)
Tópico encerrado , respostas não são mais permitidas
Voltar