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 ?

[kalosjo]

Nello stesso identico modo

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

[maxsona]

Grazie scusate se uso il thread per un altra domanda ... qual'era l'istruzione per interrompere l'elaborazione del codice ASP in una pagina ?

[weppos]

Response.End()