COPIAR TXT NUMA PASTA E COLAR EM OUTRA

ALMIRSAFADI 18/08/2009 13:04:29
#320145
Eu preciso copiar todos os arquivos txt de uma pasta do servidor e colar em outra pasta que está vazia, é possível?
TECLA 18/08/2009 13:36:51
#320148 Resposta escolhida
Tente assim:

Dim arq As String
arq = Dir([Ô]C:\Temp\*.TXT[Ô])
Do
    FileCopy [Ô]C:\Temp\[Ô] & arq, [Ô]S:\Servidor\[Ô] & arq
    arq = Dir
Loop Until arq = [Ô][Ô]
MsgBox [Ô]Cópia concluída![Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar