COPIAR TODOS ARQUIVOS DE UMA PASTA PARA OUTRA

SOUZA 21/04/2011 22:44:52
#372157
Pessoal preciso copiar todos arquivos de uma pasta para dentro de outra estou usando esta maneira pra copiar os arquivo mas tenho que copiar um a um nao da pra fazer tipo *.* pra todos!

[ô]COPIAR O ARQUIVO
SourceFile = [Ô]C:\Pasta\Arquivo.txt[Ô]
DestinationFile = [Ô]C:\PastaDestino\Arquivo.txt[Ô]
FileCopy SourceFile, DestinationFile

CHPMOTTA 22/04/2011 21:09:30
#372205 
   CaminhoOrigem = [Ô]C:\[Ô]
   CaminhoDestino = [Ô]C:\Novo[Ô]
   
   Arquivo = Dir(CaminhoOrigem)
   Do While Arquivo <> [Ô][Ô]
      FileCopy CaminhoOrigem & Arquivo, CaminhoDestino & [Ô]\[Ô] & Arquivo
      Arquivo = Dir
   Loop
Tópico encerrado , respostas não são mais permitidas
Voltar