Public Function File_Exists(FileSpec As String) As Boolean
'Function
'   Used to determine if a specified file exists.
'Parameters
'   FileSpec (String) = The complete spec to the file to be tested.
'Return (Boolean)
'   Returns True if the specified file exists.
'   Returns False if:
'       - The specified file does not exist.
'       - The specified filespec points to a folder.
'       - The specified filespec is zero-length.
'       - The specified filespec contains an invalid filespec (garbage).
'Version History
'   1.0 6/6/2007 12:43am Tested by Russ Tanner on VB6 SP5 Win2K Pro SP4.
'---

'Trap errors
On Error GoTo ErrHand

'Only return true if this file exists and is not a folder
File_Exists = (GetAttr(FileSpec) And vbDirectory) = 0

ErrHand:
'On error, this function returns false

End Function