MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sab 11 Abr 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 ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Sab 11 Abr 2015, 13:30

    Olá Assis, Boa Tarde, teste assim:

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

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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sab 11 Abr 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 ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Dom 12 Abr 2015, 00:12

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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sab 25 Abr 2015, 00:22

    Obrigado Teixeira


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

      Data/hora atual: Sex 22 Set 2017, 14:26