DIR() giving odd error

[Abraxus]

I have a list of files I need to validate are on my computer. I'm using this to check if they exist:

Code: Select all

Function DoesFileExist(strFileIN as String) as Boolean
   if Dir(strFileIn) <> "" then
     DoesFileExist = True
   else
     DoesFileExist = False
   End IF
End Function

However, I am getting Run-Time error '53': File not found for the DIR on one of my files instead of going to the False option of the If.

Why would that be and how do I correct it?

Thanks!

[HansV]

Perhaps you specified a UNC path that doesn't exist?
Try thus version

Code: Select all

Function DoesFileExist(strFileIN As String) As Boolean
   On Error Resume Next
   If Dir(strFileIN) = "" Then
     DoesFileExist = False
   Else
     DoesFileExist = True
   End If
End Function

Note that I changed the condition too.