MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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 ***

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    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

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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 ***

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    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

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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: Dom 04 Dez 2016, 14:13