' 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 StringAs 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