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]Se não existir ficheiro accdb copia o accde

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Se não existir ficheiro accdb  copia o accde Empty [Resolvido]Se não existir ficheiro accdb copia o accde

    Mensagem  Assis 11/4/2015, 13:08

    Boa tarde amigos

    Nesta função se não existe um ficheiro accdb, copia o accde

    Sub CopiaTodosOsFicheiros()
    On Error Resume Next
    Dim FSO
    Dim sfol As String, dfol As String
    sfol = CurrentProject.path
    dfol = Me!CaminhoEscolhido
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    If Not FSO.FolderExists(sfol) Then
    MsgBox sfol & " Caminho Inválido.", vbInformation, "Erro"
    ElseIf Not FSO.FolderExists(dfol) Then
    MsgBox dfol & " Caminho Inválido.", vbInformation, "Erro"
    Else

    ' aqui se não existe um copia o outro e vice versa
    '-----------------------------
    If ("\*.accdb") = 0 Then
    FSO.CopyFile (sfol & "\*.accde"), dfol
    Else
    FSO.CopyFile (sfol & "\*.accdb"), dfol
    End If
    End If
    '-----------------------
    'FSO.CopyFile (sfol & "\*.accdb"), dfol
    'FSO.CopyFile (sfol & "\*.accde"), dfol
    FSO.CopyFolder sfol & "\" & "PDF", dfol & "PDF"
    FSO.CopyFolder sfol & "\" & "Imagens", dfol & "Imagens"
    FSO.CopyFolder sfol & "\" & "Tabelas", dfol & "Tabelas"
           
    If Err.Number = 53 Then MsgBox "Nada Encontrado."
    End Sub


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Se não existir ficheiro accdb  copia o accde Empty Re: [Resolvido]Se não existir ficheiro accdb copia o accde

    Mensagem  Alvaro Teixeira 11/4/2015, 13:30

    Olá Assis, Boa Tarde, teste assim:

    FSO.CopyFile (sfol & "\*.accd?"), dfol

    Não sei se dá!
    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Se não existir ficheiro accdb  copia o accde Empty Re: [Resolvido]Se não existir ficheiro accdb copia o accde

    Mensagem  Assis 11/4/2015, 14:30

    Teixeira

    Não sei se já tinha lido o não, mas .... afinal sim o erro era meu:
    Sim

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Se não existir ficheiro accdb  copia o accde Empty Re: [Resolvido]Se não existir ficheiro accdb copia o accde

    Mensagem  Alvaro Teixeira 12/4/2015, 00:12

    Obrigado pelo retorno.
    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Se não existir ficheiro accdb  copia o accde Empty Re: [Resolvido]Se não existir ficheiro accdb copia o accde

    Mensagem  Assis 25/4/2015, 00:22

    Obrigado Teixeira


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Se não existir ficheiro accdb  copia o accde Empty Re: [Resolvido]Se não existir ficheiro accdb copia o accde

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:08