[Resolvido]Verificar se arquivos existem em uma pasta

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.

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

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...

Ok, obrigado a todos.