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]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.
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    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] [Você precisa estar registrado e conectado para ver este link.] [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: Seg 23 Out 2017, 16:14