Hvilke mapper er der i min mappe?

Hvordan får man objFileItem.Name til at indeholde navnet på de *Mapper* der er dér hvor asp filen  ligger?


    <%
  Dim strPathInfo, strPhysicalPath
  strPathInfo = Request.ServerVariables(\"SCRIPT_NAME\")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
  Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
%>


blablabla

For Each objFileItem In objFolderContents
    Response.Write objFileItem.Name
  Next