Find Files

I want to check if a files is on my pc in a function. Please help me
ceb102298Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
watyConnect With a Mentor Commented:
Public Function FileExist(ByVal szFile As String) As Boolean
   ' *** Verify if a file Exist ***

   Dim szResults           As String
   
   On Error GoTo Not_FileExist
   
   szResults = Dir$(szFile)
   If (szResults = "") Then
       FileExist = False
   Else
       FileExist = True
   End If

   Exit Function

Not_FileExist:
   FileExist = False

End Function
 
0
 
ceb102298Author Commented:
Thanks
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.