' Uncomment (Remove the ' ) the two lines of code below if they are not already at the top of your Module

'Option Compare Database

'Option Explicit

 

'---------------------------------------------------------------------------------------

' Procedure : DoesFileExist

' DateTime  : 4/12/2008 13:05

' Author    : Patrick Wood  http://gainingaccess.net

' Purpose   : Determine if a specific File exists of any file type

' Arguments : strFileNamePath is the full path and file name:

' Usage     : DoesFileExist("C:\MyFiles\MyFileName.txt")

'           : In a Procedure: If DoesFileExist(strfname) Then . . .

'---------------------------------------------------------------------------------------

'

Function DoesFileExist(strFileNamePath As String) As Boolean

    Dim strMsg As String

 

    If Len(Dir(strFileNamePath)) > 0 Then

        strMsg = strFileNamePath & " file exists."

        DoesFileExist = True

    Else

        strMsg = strFileNamePath & " file does not exist."

        DoesFileExist = False

    End If

    'Debug.Print strMsg

    'Debug.Print "DoesFileExist = " & DoesFileExist

 

End Function