USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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

 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página