USE API Programming to Determine Whether a File Exists

USE API Programming to Determine Whether a File Exists

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.


Share the Post: