ASP find mappe

Hej
Jeg har et script her som finder alle navne på de mapper der er i den mappe selve filen ligger i. Men hvordan for jeg den til at gå en mappe tilbage og finde alle navne på de mapper der ligger i den mappe?

Håber i forstår

<%
 
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
 
  For each Folder in objFolder.SubFolders
      If Left(Folder.Name,1)<>"_" Then
      name = Replace(Folder.Name, " ", "%20")
          Response.write "<font size=1 face=verdana color=000000><a href='" & name & "/submenu.asp'>"
          Response.Write(Folder.Name & "</a><font><br>")
         
          If ShowSub <= " " Then
            ShowSub = Folder.Name
        End if
      End if
  Next
  Set objFSO = Nothing
  %>