Season Greetings!

Searching database file in the application path

I want to determine the database file is existing or not... If the database (".mdb") is existing then msgbox "The database .mdb is not existing" if not existing msgbox " The database is not existing"

If the database is not existing... how to copy file of the existing database.

tnx in advance

Recommended Answers

All 3 Replies

If(System.IO.File.Exists(path As String) = true){
   MsgBox( message As String )
}else{
   FileCopy(Source As String, Destination As String)
}

System.IO.File.Exists is for .NET will not work in old VB versions
but here's a VB6 solution that works in my code.

Dim dir_str  As String
 'check if database exists (My_Database is a fully formed path+name)
dir_str = Dir(My_Database)
If dir_str = "" Then
   FileCopy My_DatabaseCopy, My_Database    'no database, get copy
Else
    MsgBox "Database " & My_Database & " is ready."
End If

You need to use The File System Object. Add the Microsoft scripting runtime dll in your Project reference menu, first.

Option Explicit
Dim fso As FileSystemObject
Private Sub Form_Load()
Dim strFileName As String
Set fso = New FileSystemObject
strFileName = Text1.Text
If fso.FileExists(strFileName) Then
   MsgBox "Blah, Blah, Blah, the File exists", vbInformation, "File Status"
Else
   MsgBox "Blah, Blah, Blah, the File does not exist.", vbInformation, "File Status"
End If
Set fso = Nothing
End Sub
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.