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

    Transferência de arquivo

    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 04/02/2010

    Transferência de arquivo Empty Transferência de arquivo

    Mensagem  jpaulorh 27/8/2019, 22:53

    Olá amigos boa noite!

    Estou movendo um arquivo com o código abaixo e, está dando certo quando o arquivo é jpg mas quando é pdf não faz, o que há de errado:

    Código:
    sfol = strCaminho 'CurrentProject.path & "\trabalhando\" 'caminho inicial
    dfol = CurrentProject.path & "\" & "Excluidos" & "\" 'destino

    If Not Dir(dfol, vbDirectory) <> "" Then MkDir (dfol)

    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(sfol) Then
       MsgBox sfol & " não existe!", vbExclamation, "Erro"
       ElseIf Not fso.FileExists(dfol) Then
           fso.MoveFile (sfol), dfol
           
       Else
       MsgBox dfol & " existente!", vbExclamation, "Sucesso"
       End If
           
    Else
       DoCmd.CancelEvent
    End If
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 915
    Registrado : 09/11/2012

    Transferência de arquivo Empty Re: Transferência de arquivo

    Mensagem  =>Nois 28/8/2019, 14:08

    tente adaptar


    maximoaccess.com/t36155-resolvidocopia-todos-os-ficheiros-nao-funciona-com-arquivo-repetido


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 24/7/2021, 08:28