Function FileExists(s As String) As Boolean
If Dir(s) <> "" Then
FileExists = True
Else
FileExists = False
End If
end function