|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Função que verifica a existência de um arquivo
|
 |
|
|
|
Postada em 2/6/2004 por ATS
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 "Banco de Dados não encontrado.", vbCritical, App.Title & " - Erro Geral"
End
Else
MsgBox "Banco de Dados encontrado.", vbInformation, App.Title & " - Ok"
End If
|
|
|
|
|
