Popolare selectbox con nomi cartelle

[maxsona]

Popolare una selectbox con il nome dei file contenuti in una cartella non è difficile

<%
Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
Path = server.mappath("/public/immagini")
Set ImgFolder = fs.GetFolder(Path)
response.write("<select name=""files"">")
For Each File In ImgFolder.Files
response.write("<option value="""&File.Name&""">"&File.Name&"</option>")
Next
response.write("</option>")
%>

Ma come posso popolare una selectbox con i nomi delle sottocartelle contenute in una cartella principale ?