Check File :- It's is Exists or Not

Public Function CheckFile(FlNm As String) As Boolean
Dim fsys As New Scripting.FileSystemObject
If fsys.FileExists(App.Path + "\" + FlNm) = False Then
CheckFile = True
Else
CheckFile = False
End If
End Function
Pass the file name in function and it return you True & False