Searching database file in the application path in visual basic 6
 

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

Re: Searching database file in the application path in visual basic 6
 

If(System.IO.File.Exists(path As String) = true){

   MsgBox( message As String )

}else{

   FileCopy(Source As String, Destination As String)

}

Re: Searching database file in the application path in visual basic 6
 

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.
[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
[\code]

Re: Searching database file in the application path in visual basic 6
 

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