Elencare il contenuto di una cartella

[Dielnet]

Salve,

Per elencare il contenuto di una cartella che sta sul mio Server WEB utilizzo il seguente codice:

<%
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder("c:\inetpub\Download")
Set file3 = file2.Files
For Each file in file3
response.write "<A HREF='"
response.write file.name
response.write "'>"
response.write file.name
response.write "</A>
"
Next
%>

Questo mi permette di vedere tutti i files presenti nella cartella ma io ho necessità di vedere anche l'elenco delle cartelle presenti. come posso fare?

[Lak3d]

usando il metodo SubFolders...

Set Sf=file2.SubFolders
For each F in Sf
   str=str+F.name+vbcrlf
Next