check to see if a file exists

[chiefvj]

Can anyone help with a thread to how I can check to see if a file exists. I have a back-end database and sometimes the server crashes. I need to check to see if my application can link to the tables and send a custom message notifying the user that the application cannot link to the tables.
thx in advance..

 

[dinster]

try this...

Sub FileExists()
Dim fso
Dim file As String
file = "C:\Test.xls" ' change to match the file w/Path
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox file & " was not located.", vbInformation, "File Not Found"
Else
MsgBox file & " has been located.", vbInformation, "File Found"
End If
End Sub

 

[PHV]

Have a look at the Dir function.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[chiefvj]

thanks bunches I will give it a try.