udskriv mapper/undermapper /underundermapper

Jeg er stødt ind i et lille problem.
Jeg er i gang med at lave en simpel, fil-lister som blot skal udskrive alle mapper samt undermapper.

Det har jeg også fået den til med dette script:

[kode]

<%
Function Indent(intNum)
  Dim intI, strOut
  For intI = 1 to intNum
      strOut = strOut & "/"
  Next
  Indent = strOut
End Function

Function ExamineFolders(ByRef objFolder,ByVal intLevel)
  Dim Folder, strI
  strI = Indent(intLevel - 1)
  Response.Write strI & "<B>" & objFolder.Name & "</B><BR>"
  For each Folder in objFolder.SubFolders
      ExamineFolders Folder, intLevel + 1
  Next

End Function

Dim objFS, objRootFolder, strVRoot

strVRoot=Server.MapPath("/")
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRootFolder=objFS.GetFolder(strVRoot)

ExamineFolders objRootFolder,1

Set objRootFolder = Nothing
Set objFS = Nothing
%>


[/kode]

Mit problem er dog måden det udskrives på, det jeg ønsker er et ouput som dette:

billeder/
billeder/mine billeder/
billeder/mine billeder/skitur/
billeder/mine billeder/skovtur/ osv.

Jeg kan dog ikke få scriptet til at gøre dette rigtigt, outputtet ser således ud lige nu:

billeder
/mine billeder
//skitur
//skovtur

/Dan