DirServer

<%
Set fso = CreateObject("Scripting.FileSystemObject")
TheFolder = "d:\webs\mioweb"
Call ShowSubFolders(TheFolder)
Sub ShowFiles(fol)
Set f = fso.GetFolder(fol)
Set fc = f.Files
For Each f1 in fc
Response.Write f1.name
Response.Write "<BR>"
Next
End Sub

Sub ShowSubFolders(fol)
Set f = fso.GetFolder(fol)
Set sf = f.SubFolders
For Each f1 in sf
Response.Write f1.name
Response.Write "<BR>"
ShowSubFolders(f1.name)
ShowFiles(f1.name)
Response.Write "<BR>"
Next
End Sub

%>
Per personalizzarlo basta impostare la variabile TheFolder'
sul percorso da cui vogliamo iniziare a mostrare la lista.