[Resolvido]Copiar Todos os arquivos pdf de uma pasta para outra

Quero Copiar Todos os arquivos pdf de uma pasta para outra, porem eu não sei o nome dos arquivos por isso tentei usar o *


Dim Arq_Origem, Arq_Destino As String ' Variavel

Arq_Origem = Me.txt_orig & "*.pdf" ' Caminho e Arquivo a ser copiado, porem o arquivo todos pdf
Arq_Destino = Me.txt_dest & "*.pdf" ' Arquivo Copiado para a pasta desejada.

FileCopy Arq_Origem, Arq_Destino ' copia e cola.


onde esta o erro neste codigo ?

Bom dia,
o filecopy  do VBA não lida bem nessa situação.

Use esse meu código:

Em um módulo:

Código:

Public Sub SubCopia(Origem As String, Destino As String)
    'Método para copiar arquivos utilizando o File System Object do Windows (é mais eficiente do que o do do VBA)
    'Criado por Marcelo David
    'Conheça meu curso de formulário desacoplado no link abaixo:
    'https://www.udemy.com/course/access-vba-formulario-desacoplado/?referralCode=8D331E633FD82E09EFD2
    
    Dim fso As Object
    
    On Error GoTo TrataErro
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    fso.copyfile Origem, Destino, False
    
    Set fso = Nothing
    
    Exit Sub
    
TrataErro:
    MsgBox Err.Description, vbExclamation, "Atenção"
End Sub


Esse código funciona como o filecopy do vba, porém usa Scripting do Windows, que é mais eficiente e tem algumas vantagens,
inclusive a possibilidade de uso do caractere coringa * para fazer referencia a nomes de arquivos variados e etc.

Para copiar vários arquivos sendo que apenas com extensão específica, como pdf (seu caso),
seria algo assim:

a variável Arq_Origem, deve conter um conteúdo semelhante:
c:\PastaOrigem\*.pdf
Ou sejam, basta especificar *.extensão, que todos os arquivos da pasta com a extensão especificada serão copiados.

A variável Arq_Destino não deve conter a extensão do arquivo, deverá ficar mais ou menos assim:
c:\PastaDestino\

Assim, os arquivos serão copiados para  a pasta destino com seus nomes originais.

Obrigado Marcelo! Esse seu código funcionou perfeitamente!

Grato pelo retorno!