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

    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar se arquivos existem em uma pasta Empty [Resolvido]Verificar se arquivos existem em uma pasta

    Mensagem  M2013 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
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar se arquivos existem em uma pasta Empty Verificar se arquivos existem em uma pasta

    Mensagem  daniloreiis 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
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar se arquivos existem em uma pasta Empty [Resolvido]Verificar se arquivos existem em uma pasta

    Mensagem  M2013 Sex 13 Mar 2015, 16:47

    Ok, obrigado a todos.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Dom 24 Nov 2024, 17:16