MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

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

    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/02/2016

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

    Mensagem  alexjc 15/7/2021, 02:25

    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 ?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3358
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David 15/7/2021, 12:52

    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.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Copiar Todos os arquivos pdf de uma pasta para outra Marcel11
    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/02/2016

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

    Mensagem  alexjc 15/7/2021, 16:42

    Obrigado Marcelo! Esse seu código funcionou perfeitamente!

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3358
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David 15/7/2021, 16:45

    Grato pelo retorno!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Copiar Todos os arquivos pdf de uma pasta para outra Marcel11

      Data/hora atual: 1/8/2021, 12:42