sfogliare cartelle e sottocartelle 2°

[yro]

ho preso questo bel codice per visualizzare cartelle e le rispettive sottocartelle:

<%dim path,fso

function buildTree(theFSO, thePath)
  set theFolder = theFSO.getFolder(thePath)
    set theSubfolders = theFolder.subfolders
      for each subfolder in theSubfolders

        response.write subfolder.name
          call buildTree(theFSO, subfolder)
 
          
      next
    set theSubfolders = nothing
    set theFiles = theFolder.files 
    set theFiles = nothing    
  set theFolder = nothing
end function

path = "/folder/"
path = server.mapPath(path)

set fso = server.createObject("Scripting.FileSystemObject")


call buildTree(fso, path)

set fso = nothing
%>

e ottengo la cartella principale e poi le sue sottocartelle.

vorrei però ottenere un risultato più completo, cioè:

cartella1
cartella1/sottocartella1
cartella1/sottocartella2

cartella2
cartella2/sottocartella1

ecc ecc...

è possibile?