12-07-2009, 07:20 PM
Much better function:
Code:
Function FileExist(File As String, FileType As VbFileAttribute) As Boolean
FileExist = LenB(Dir$(File, FileType))
End Function