IsThere1_Folder

Checks if a folder is found or not, can pass either mapped path or unmapped path, not both

CodeFunctionName

What is this?

Public

Tested

Original Work

Function IsThere1_Folder(Path_MapPathed, Path_UnMapPathed)
IsThere1_Folder = False
FilePath = ""
If Path_MapPathed > "" And Path_UnMapPathed = "" Then
FilePath = Path_MapPathed
ElseIf Path_MapPathed = "" And Path_UnMapPathed > "" Then
FilePath = Server.MapPath(Path_UnMapPathed)
End If
If FilePath = "" Then Exit Function
fpp1 = fso.GetParentFolderName(FilePath)
IsThere1_Folder = fso.FolderExists(fpp1)
End Function

Path_MapPathed, Path_UnMapPathed
One of them

IsThere1_Folder("e:\Directory\Folder\Website.com", "")
IsThere1_Folder("", "../wwroot/Account/User")