Simple function to check if file exists. Detects Normal & Hidden files. Improvement of code from Greg G., and incorporating a suggestion by Larry Rebich.
Original Author: Dan Redding – Blue Knot Software
Inputs
A Valid Pathname as String.
Returns
Boolean TRUE if file exists at path specified
Side Effects
Simply returns FALSE if an invalid path is encountered
Code
Public Function FileExists(strFile as String) As String
On Error Resume Next 'Doesn't raise error - FileExists will be false
'if error occurs
'a valid path would be someting like "C:Windowswin.ini" - Full path
'must be specified
FileExists = Dir(strFile, vbHidden) <> ""
End Function