It visualizes the content of a directory on the file server.
<%
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
%>