Notifications
Clear all
2024 - VBA & Macros
2
Posts
1
Usuários
0
Reactions
990
Visualizações
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
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