< Public Function bFileExists (Filename As String, Optional Flags As VbFileAttribute = vbNormal) As Boolean (?)

Comments

    
    '-------------------------------------------------------------------------
    'Determine if a given file exists
    '-------------------------------------------------------------------------

Public Function bFileExists (Filename As String, Optional Flags As VbFileAttribute = vbNormal) As Boolean

    On Error Resume Next
    If Filename = "" Then Exit Function
    bFileExists = (Dir(Filename, Flags) <> "")
End Function

Copying, Return to index