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.

See also  How College Students Can Shape the Future of Tech Responsibility

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist