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:
Share on facebook
Share on twitter
Share on linkedin


The Latest

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a

chrome os developer mode

How to Turn on Chrome OS Developer Mode

Google’s Chrome OS is a popular operating system that is widely used on Chromebooks and other devices. While it is designed to be simple and user-friendly, there are times when users may want to access additional features and functionality. One way to do this is by turning on Chrome OS

homes in the real estate industry

Exploring the Latest Tech Trends Impacting the Real Estate Industry

The real estate industry is changing thanks to the newest technological advancements. These new developments — from blockchain and AI to virtual reality and 3D printing — are poised to change how we buy and sell homes. Real estate brokers, buyers, sellers, wholesale real estate professionals, fix and flippers, and beyond may