Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Does the specified file exist

Function FileExists(stFile As String) As Boolean    If Dir(stFile) <> "" Then FileExists = True End Function Sub TestForFile()    Dim myFileName As String    myFileName = "c:\SalesData1.xls"    If FileExists(myFileName) Then       MsgBox myFileName & " exists"    Else       MsgBox myFileName & " does not exist"    End If End Sub