ASP mapper og filer

Hej

jeg har et script der laver en menu ud fra de mapper der er i den mappe hvor selve filen ligger i. når jeg trykker på et menu punkt, går den til en af mapperne, og her vil jeg gerne have den til at tjekke om der er filer eller mapper i. Er der filer skal den bare udskrive en liste med dem, er der mapper, skal den lave en ny menu. håber i for står

<%
  ShowSub = request("ShowSub")
  'ShowPic = request("ShowPic")
  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
  %>