Elencare tutte le sottocartelle di una cartella - Script ASP

Sull'esempio del codice per elencare i file contenuti in una cartella è possibile elencare anche le sottocartelle della cartella stessa.
E' sufficiente, in alternativa alla proprietà .Files() usata nella riga Set objFiles = objFolder.Files, utilizzare la proprietà .SubFolders per avere un elenco di tutte le sottocartelle.

Ecco un esempio di codice:

<% 

Dim objFso, objFolder, objSubFolders, strFolder, strSubFolder 
strPath = "cartella/" 

Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objSubFolders = objFolder.SubFolders 

For Each strSubFolder in objSubFolders 
Response.Write(strSubFolder.name & "<br />") 
Next 

Set objFso = Nothing 
Set objFolder = Nothing 
Set objSubFolders = Nothing 

%>