Kanske nått sånt här, för att lista undermappar...:
'***** Kollar mappstrukturen att läsa ifrån *****
folderspec = "c:\mapp\"
Set ff = CreateObject("scripting.FileSystemObject")
Set fw = ff.GetFolder(folderspec)
Set fsf = fw.subfolders
For Each whatever in fsf
Response.write whatever.name & "<br>"
next
Dett är ju som du säkert ser ingen komplett kod, men det är en lite fingervisning på hu man kan göra...