Scusa, ti ho fatto fare delle modifiche del cavolo!!!!
Dovresti procedere così:

codice:
 
strPhysicalPath = Server.MapPath("/percorso relativo della dir da visualizzare")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objFile = objFSO.GetFile(strPhysicalPath)
'Set objFolder = objFile.ParentFolder 
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Commenta le righe che ho indicato commentate