Okej, jag söker en kod som kan lista upp alla undermappar (och under-undermappar) som finns i en vald mapp. Jag kör en kod som jag hittade (se nedan), men det verkar som att den blir tyngre att köra när det finns många filer i mapparna.

Den här koden använder jag:
Här visar de hur man gör för att lista alla mappar/undermappar som innehåller vissa filtyper:
http://vbnet.mvps.org/index.html?code/fileapi/recursivefolders_minimal.htm

Jag har förstås satt filtypen till "*.*" för att få med alla mappar, men som sagt så verkar det gå tungt i mappar med många filer. Skulle processen snabbas upp om koden skrevs om för att inte bry sig om ífall, eller vilka filer som finns i mapparna? Och i så fall - hur skriver jag om koden?


Här hittade jag en liknande kod, men istället för att söka efter filtyper så är det ett "filter" som bestämmer vad mapparna får/inte får heta om de ska få listas:
http://vbnet.mvps.org/index.html?code/fileapi/recursivefolders_minimal_multipleselective.htm

Jag har inte provat den koden. Den förra var lättare att skriva om så att det passar mitt program.

Men som sagt, något enkelt tips på hur jag skriver om så att koden inte letar så förbrilt efter filer utan bara listar upp mapparna som finns?

Eller är det bara jag som inbillar mig att det skulle ta längre tid?

Tack på förhand.

snabbt och enkelt:
<code>
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("C:\")

Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Wscript.Echo Subfolder.Path
ShowSubFolders Subfolder
Next
End Sub
</code>

Snyggt. Tackar. :)