[Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

Bom dia!
Saudações mestres!

Estou com um grande problema cerebral em selecionar todos os arquivos e pasta de um determinado local e copiar em outro "Mais especificamente na rede" substituindo todos sem perguntar. Alguém pode me dar uma pista?

Abraços a todos!

Teste por favor;

Public Sub CopiaPasta()
'By JPaulo ® Maximo Access
'Necessario ativar a referencia VBA
'Microsoft Scriting Runtime
Dim fso
Dim strOrigem As String, strDestino As String
strOrigem = "C:\SuaPasta" ' caminho de origem da pasta"
strDestino = "C:\SuaOutraPasta\" ' caminho de destino"
Set fso = CreateObject("Scripting.FileSystemObject")

   If fso.FolderExists(strDestino) Then
   'se a pasta existir, deleta
       fso.DeleteFolder strDestino & "SuaPasta"
   'copia de novo
   fso.CopyFolder strOrigem, strDestino
   MsgBox "Pasta e ficheiros copiados com sucesso !"
   Else
   End If
End Sub

Perfeito JPaulo,
Agora como eu faço somente para atualizar alguns arquivos sem deletar a pasta existente?

Então vamos supor o seguinte;

Na drive C:\ tenho uma pasta de nome imagens, e necessito de substituir a imagem 0033.jpg na pasta xpto;

Utilizo:

FileCopy "C:\imagens\001.jpg", "C:\xpto\0033.jpg"

Posso copiar tantas vezes a linha a cima, quantos ficheiros quiser substituir.

Teste e retorne.

Na verdade me expressei mal, é exatamente o que você escreveu acima, mas sem deletar a pasta toda já existente.
Porque na pasta onde vou copiar são somente os arquivos atualizados (Exemplo 9 Arquivos) e na pasta origem é o projeto onde tem (42 Arquivos), mas quando eu executar. Copia todos os 9 arquivos podendo ter pasta e subpasta que coloquei na pasta "Origem" para a pasta Destino substituindo as existente.

Resumindo, vou usar como um script de atualização de sistema.

Então faça o teste sem o delete;

Public Sub CopiaPasta()
'By JPaulo ® Maximo Access
'Necessario ativar a referencia VBA
'Microsoft Scriting Runtime
Dim fso
Dim strOrigem As String, strDestino As String
strOrigem = "C:\PastaOrigem" ' caminho de origem da pasta"
strDestino = "C:\PastaDestino" ' caminho de destino"
Set fso = CreateObject("Scripting.FileSystemObject")

   fso.CopyFolder strOrigem, strDestino
   MsgBox "Pasta e ficheiros copiados com sucesso !"
End Sub

Testado e funcionando Jpaulo, Obrigado pela força!
Estou na correria do Cascov4 e acabei esquecendo de agradecer!

Boa noite Jpaulo,

Utilizando o tópico respondido você conseguiria um código para eu copiar um arquivo PDF e replicá-lo com nomes que eu determinar provenientes de uma tabela?
Ou seja, eu tenho um arquivo PDF e uma tabela com um campo com os seguintes dados: PV123; PV124; PV125... (quantos dados mais existirem), e o sistema pegar esse arquivo pdf e transformar em vários outros com os nomes dos dados da tabela: PV123.pdf; PV124.pdf; PV125.pdf...