Kataloger

Hej
Jag vill kontrollera alla under mappar till en katalog. Jag vet att man kan använda object.Subfolders. Men då kontrollerar man bara ett steg ned.. Däför undrar jag finns det något annan funktionen som kontrollerar hela strukturen och lägger detta i ett objekt.

function GetSubFolders(pfolder)
    Dim sFolders, fldr, fil
    sFolders = "<LI>" & pfolder.Name

    If pfolder.SubFolders.Count > 0 Or pfolder.Files.Count > 0 Then _
        sFolders = sFolders & "<UL>"

    For Each fldr In pfolder.SubFolders
        sFolders = sFolders & GetSubFolders(fldr)
    Next
    
    For Each fil In pfolder.Files
        sFolders = sFolders & "<LI>" & fil.Name & "</LI>"
    Next
    
    If pfolder.SubFolders.Count > 0 Or pfolder.Files.Count > 0 Then _
        sFolders = sFolders & "</UL>"
    
    sFolders = sFolders & "</LI>"

    Set fil = Nothing
    Set fldr = Nothing
    
    GetSubFolders = sFolders
End function

Dim rootname, fso, folder
rootname = server.mappath("mina_filer")& "\"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(rootname)

Response.Write "<UL>" &  GetSubFolders(folder) & "</UL>"