Undermappar i flera nivåer

Sub ListFolders(ByVal Path, ByVal Level)
Dim fso, folder, subfolder
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Path) Then
   Set folder = fso.GetFolder(Path)
   For Each subfolder in folder.SubFolders
      Response.Write(Level & ") " & subfolder.Name)
      Level = Level + 1
      ListFolders subfolder.Path, Level
      Level = Level - 1
   Next
   Set folder = Nothing
End If
Set fso = Nothing
End Sub

' Kör skriptet
ListFolders "C:\test\", 0

Otestat, men något sånt.

Strålande! Tack.