Put this code in a BAS Module:
Public Const INVALID_HANDLE_VALUE = -1Public Const MAX_PATH = 260Public Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd TypePublic Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14End TypePublic Declare Function FindFirstFile Lib "kernel32" _ Alias "FindFirstFileA" _ (ByVal lpFileName As String, _ lpFindFileData As WIN32_FIND_DATA) As LongPublic Declare Function FindClose Lib "kernel32" _ (ByVal hFindFile As Long) As LongPublic Function FileExists(sSource As String) As Boolean Dim WFD As WIN32_FIND_DATA Dim hFile As Long hFile = FindFirstFile(sSource, WFD) FileExists = hFile <> INVALID_HANDLE_VALUE Call FindClose(hFile)End Function
In the form, place a textbox for inserting the file path, and put a command button to fire the event, like this:
Private Sub Command1_Click() MsgBox FileExists("c:winntsyscom.txt")End Sub
If the file exists then it will return true, otherwise it will return false.