| 'This program
checks whether a file exists
Private Sub Form_Load()
Dim objfso As New FileSystemObject
If objfso.FileExists("f:\test.txt")
Then
MsgBox "The file exists",
vbInformation
Else
MsgBox "The file does not exist",
vbInformation
End If
End Sub
|