Ola. Estou com um probleminha em um sistema e gostaria que algum mestre me ajudasse. Tenho um sistema que manipula arquivos em um diretorio (abre, fecha e etc...). Porem, alguns arquivos que o banco de dados faz referencia para o programa nao existem no diretorio e causam um bug no sistema.  Gostaria de um programinha externo que pegasse o nome do arquivo do banco de dados e verificasse sua existencia no diretorio. O banco de dados foi feito em access e a referencia do arquivo esta em Tartista.CodFaixa .

Grato pela ajuda.

 

RCA vc pode usar o vb mesmo para fazer o que vc quer, use o seguinte código para verificar se o arquivo existe:

 

Crie essa função em Módulo BAS

Public Function FileExist(FileName As String) As Boolean

Dim TempAttr As Integer
On Error GoTo ErrorFileExist
TempAttr = GetAttr(FileName)
FileExist = True
GoTo ExitFileExist

ErrorFileExist:
FileExist = False
Resume ExitFileExist
ExitFileExist:
On Error GoTo 0

End Function

E no seu form, chame-a da seguinte forma:

    'If FileExist("C:CaminhoArquivo.mdb") = False Then
    If FileExist("C:CaminhoArquivo.mdb") = False Then
        MsgBox "Arquivo não encontrado.", vbCritical, App.Title & " - Erro Geral"
        End
    Else
        MsgBox "Arquivo encontrado.", vbInformation, App.Title & " - Ok"
    End If

Os créditos desse código vão para o ATS, que foi postado na seção dicas.

E não esqueça de se cadastrar no site.

 

T+