Notifications
Clear all

FUNÇÃO FILECOPY

2 Posts
1 Usuários
0 Reactions
946 Visualizações
(@tarcelles)
Posts: 61
Trusted Member
Topic starter
 

Boa Tarde.

Gostaria de saber se é possível utilizar a função filecopy sem saber quais arquivos irá copiar, gostaria que copiasse todos os arquivos que estão na pasta onde eu apontar.

atualmente utilizo este codigo :

Dim Origem,Destino As String

Origem = “c:origemarquivo.txt”
Destino = “c:destinoarquivo.txt”

FileCopy Origem, Destino

Como seria o codigo caso eu queira copiar todos os arquivos de origem e colar em destino ?

Desde de ja agradeço.

 
Postado : 30/06/2016 12:25 pm
(@tarcelles)
Posts: 61
Trusted Member
Topic starter
 

Consegui resolver assim :

Raiz ="c:origem”
             NomeArquivo = Dir(Raiz & "*.txt")
          Do While NomeArquivo <> ""
                 Origem = "c:origem" & NomeArquivo
                 Destino= "c:Destino" & NomeArquivo
                 FileCopy Origem, Destino
           NomeArquivo = Dir()
         Loop
 
Postado : 30/06/2016 1:06 pm