<% 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 "
" 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 "
" ShowSubFolders(f1.name) ShowFiles(f1.name) Response.Write "
" Next End Sub %>