Hej, jag undrar hur man listar alla mappar som finns i en mapp. Har bara sett koder som listar filer men inte mappar. Någon som har en lite kod som gör detta?

//Tack i förhand

<get folders.vbs>

<code>

Dim fso
Dim subFolder
Dim strFolders
Dim break

set fso = CreateObject("Scripting.FileSystemObject")
break = Chr(13) & Chr(10)

For Each subFolder In fso.GetFolder("C:\Program").SubFolders
strFolders = strFolders & subFolder.Name & break
Next

MsgBox strFolders

</code>

Ola

Tack så mycket.