Gets folder name of a page using FSO
Function GetPapa(ThisPage1)
' Gets parent folder of a page
' Needs ThisPage1 having full url of a page
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set p = Fso.getFolder(Fso.GetParentFolderName(Server.MapPath(ThisPage1)))
GetPapa = p.name
Set Fso = Nothing
End Function
' Gets parent folder of a page
' Needs ThisPage1 having full url of a page
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set p = Fso.getFolder(Fso.GetParentFolderName(Server.MapPath(ThisPage1)))
GetPapa = p.name
Set Fso = Nothing
End Function
ThisPage1
Views 4,697
Downloads 1,302
CodeID
DB ID