Este post foi originalmente publicado em https://officevbavsto.blogspot.com/2011/04/quickshot-copiando-arquivos-para-outra.html.

Vamos aprender a "copiar" os arquivos de uma pasta de origem para outra. Veja o código abaixo.

Sub CopiarArquivos()
 
  Dim fso
  Dim origem As String, destino As String
   
  origem = "c:\teste1" 'mude para a pasta de origem
  destino = "c:\teste2" 'mude para a pasta de destino
   
  Set fso = CreateObject("Scripting.FileSystemObject")
  On Error Resume Next
   
  If Not fso.FolderExists(origem) Then
      MsgBox origem "Nenhuma pasta vᬩda.", vbInformation, "Office, VBA e VSTO"
  ElseIf Not fso.FolderExists(destino) Then
      MsgBox destino "Nenhuma pasta vᬩda.", vbInformation, "Office, VBA e VSTO"
  Else
      fso.CopyFile (origem "\*.*"), destino ' Mude "\*.*" para "\*.xls" para mover somente arquivos Excel 
  End If
   
  If Err.Number = 53 Then MsgBox "Arquivo n㯠encontrado"
 
End Sub

Créditos

Photo by Syed Ali on Unsplash