Function SimpleExamineFolders(ByRef objFolder) Dim Folder, File, strI strI = "     " Response.Write "" & objFolder.Name & "
" For each Folder in objFolder.SubFolders Response.Write strI & "" & Folder.Name Response.Write "
" Next For each File in objFolder.Files Response.Write strI & File.Name & "
" Next End Function