Function IsThere1(FilePath_MapPathed, FilePath_UnMapPathed)
IsThere1 = False
Rett = False
FilePath = ""
If FilePath_MapPathed > "" And FilePath_UnMapPathed = "" Then
FilePath = FilePath_MapPathed
ElseIf FilePath_MapPathed = "" And FilePath_UnMapPathed > "" Then
FilePath = Server.MapPath(FilePath_UnMapPathed)
End If
IF FilePath = "" Then Exit Function
If IsThere1_Folder(FilePath) Then
Rett = fso.FileExists(FilePath)
End If
IsThere1 = Rett
End Function
IsThere1 = False
Rett = False
FilePath = ""
If FilePath_MapPathed > "" And FilePath_UnMapPathed = "" Then
FilePath = FilePath_MapPathed
ElseIf FilePath_MapPathed = "" And FilePath_UnMapPathed > "" Then
FilePath = Server.MapPath(FilePath_UnMapPathed)
End If
IF FilePath = "" Then Exit Function
If IsThere1_Folder(FilePath) Then
Rett = fso.FileExists(FilePath)
End If
IsThere1 = Rett
End Function
FilePath_MapPathed, FilePath_UnMapPathed
One of them, not both
One of them, not both
IsThere1("e:\directory\folder\file.html", "")
IsThere1("", "../File.html")
IsThere1("", "../File.html")
Views 7,683
Downloads 1,604
CodeID
DB ID