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]Verificar se arquivos existem em uma pasta

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    [Resolvido]Verificar se arquivos existem em uma pasta

    Mensagem  M2013 em Qui 12 Mar 2015, 14:02

    Prezados,

    A intenção é verificar se 2 arquivos accdb existem no diretório definido do aplicativo(caminhoInstall ) e listar em uma caixa de mensagem (os que não existem). Para tal tenho a tabela tb_check com 2 campos : [Arquivo] e [Flag].Em [Arquivo] tem o nome do arquivo e em [Flag] defino '1' se ele não existe, para depois listar os que não existem.Estou com a função 'FileExists' no banco. Tentei com o código abaixo mas não obtive sucesso.

    Dim bd As Database
    Dim tb As Recordset
    Dim caminhoInstall, NãoEncontrados As String
    Set db = DBEngine(0)(0)
    Set tb = db.OpenRecordset("tb_check")
    caminhoInstall = DLookup("[Dir_install]", "tb_Config", "[Dir_install]") & "\"

    'verifico se existe arquivo1
    If Not FileExists(caminhoInstall & "tbTemp.accdb") Then
    tb1 = 1

    'verifico se existe arquivo2
    ElseIf Not FileExists(caminhoInstall & "tbato.accdb") Then
    tb2 = 1

    End If

    Do Until tb.EOF

    If (tb![Arquivo] = "tbTemp") Then
    tb.Edit
    tb![Flag] = tb1
    tb.Update

    ElseIf (tb![Arquivo] = "tbato") Then
    tb.Edit
    tb![Flag] = tb2
    tb.Update

    ElseIf tb.BOF Then
    End If
    tb.MoveNext
    Loop
    tb.Close
    Set db = Nothing


    NãoEncontrados = DLookup("[Arquivo]", "tb_check", "[Flag]=1")

    MsgBox " Arquivos não encontrados: " & NãoEncontr

    obrigado.

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Verificar se arquivos existem em uma pasta

    Mensagem  daniloreiis em Qui 12 Mar 2015, 16:56

    Olá boa tarde!
    se for possível disponibilizar o projeto para melhor ajuda-lo.




    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Verificar se arquivos existem em uma pasta

    Mensagem  Roberto_1977 em Qui 12 Mar 2015, 17:41

    Boa tarde,

    Eu utilizo codigo abaixo para ver se ficheiro ou pasta já existe.
    Tente preceber seu mecanismo e adapte a sua necessidade.

    Private Sub Comando429_Click()
    Dim strArquivo As String
    Dim strLocal As String
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    strArquivo = "Interno - " & Me!Text339 & " - " & Me.Text425 & "%" & ".pdf"
    strLocal = CurrentProject.Path & "\PDF\" & Me.Text126 & "\" & Me.Text411 & "\" & strArquivo
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = " Deseja guardar os dados da BD?"
    Style = vbYesNo + vbInformation + vbDefaultButton2
    Title = "Guardar Base Dados."
    Help = "Ajuda.HLP"
    Ctxt = 1000
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then
    MyString = "Sim"
    If FSO.folderexists(CurrentProject.Path & "\PDF\" & Me.Text126 & "\" & Me.Text411) Then
    DoCmd.OutputTo acOutputReport, "interno_filtro_tudo", acFormatPDF, strLocal, False
    MsgBox "Arquivo gerado com sucesso.", vbInformation, "Enviar para Pasta Arquivo"
    End If
    If Not FSO.folderexists(CurrentProject.Path & "\PDF\" & Me.Text126) Then
    MkDir CurrentProject.Path & "\PDF\" & Me.Text126
    MkDir CurrentProject.Path & "\PDF\" & Me.Text126 & "\" & Me.Text411
    DoCmd.OutputTo acOutputReport, "interno_filtro_tudo", acFormatPDF, strLocal
    MsgBox "Arquivo gerado com sucesso.", vbInformation, "Enviar para Pasta Arquivo"
    End If
    If Not FSO.folderexists(CurrentProject.Path & "\PDF\" & Me.Text126 & "\" & Me.Text411) Then
    MkDir CurrentProject.Path & "\PDF\" & Me.Text126 & "\" & Me.Text411
    DoCmd.OutputTo acOutputReport, "interno_filtro_tudo", acFormatPDF, strLocal
    MsgBox "Arquivo gerado com sucesso.", vbInformation, "Enviar para Pasta Arquivo"
    End If
    Else
    MyString = "Não"
    End If
    End Sub

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    [Resolvido]Verificar se arquivos existem em uma pasta

    Mensagem  M2013 em Sex 13 Mar 2015, 16:47

    Ok, obrigado a todos.

      Data/hora atual: Dom 04 Dez 2016, 01:56