Function DiskFileExists(sFilePathAndName As String) As Boolean
'Returns True if the file exists, False if it doesn’t
DiskFileExists = CBool(Len(Dir(sFilePathAndName)))
End Function
Function DiskFileExists(sFilePathAndName As String) As Boolean
'Returns True if the file exists, False if it doesn’t
DiskFileExists = CBool(Len(Dir(sFilePathAndName)))
End Function
Posting code? Use <pre> tags for VBA and <code> tags for inline.
VERY NICE AND QUICK FUNCTION
THANKS
Very Elegant!