<%
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
%>