|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Arquivos/Diretórios)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Função que verifica a existência de um arquivo
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|