On Error GoTo 0
Set oFolder = Nothing
Set oParentFolder = Nothing
Set oFileSystem = Nothing
End Function

42. Copiar os arquivos de uma pasta para outra

Esta macro é muito utilizada para empresas e usuários que tenham acesso a
uma rede, onde muitas vezes existe a rotina de realizar cópia de arquivos da
rede para armazenar em uma outra pasta. Esta rotina é incrivelmente mais
fácil com uma macro de Excel.

Obs: Substituir os valores de exemplo em negrito pelos valores desejados.

Sub CopiarColarArquivo()
Dim iNumArq As Integer
Dim iContador As Integer
Dim sMyFiles() As String
Dim pastaorigem As String
Dim pastadestino As String
pastaorigem = " C:\Users\usuarioteste\Documents\Macro origem "
pastadestino = " C:\Users\usuarioteste\Documents\Macro destino "
ArqEncontrado = ProcurarArquivos(pastaorigem, sMyFiles, iNumArq, "",
True)
If ArqEncontrado Then
For iContador = 1 To iNumArq
FileCopy pastaorigem & "\" & sMyFiles(2, iContador), pastadestino & "\"
& sMyFiles(2, iContador)
Next iContador
End If
End Sub
Function ProcurarArquivos(ByVal sPath As String, ByRef sFoundFiles() As
String,
ByRef iArqEncontrados As Integer,
Optional ByVal sFileSpec As String = ".*", _
Optional ByVal blIncludeSubFolders As Boolean = False) As Boolean