
23/04/2005, 07:55
|
 | | | Fecha de Ingreso: agosto-2004
Mensajes: 313
Antigüedad: 20 años, 8 meses Puntos: 0 | |
es esta linea ------> set fso = Server.CreateObject("Scripting.FileSystemObject")
Y esto es parte del codigo
<%
dim fso, dir, strCurDir, s, script, d
script = Request.ServerVariables("SCRIPT_NAME")
if Request.QueryString("dir").Count = 0 then
strCurDir = Server.MapPath("/")
else
strCurDir = Request.QueryString("dir")
end if
set fso = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
set dir = fso.GetFolder(strCurDir)
if Err then
Response.Write "<P class=Error align=center>" & langCannotAccessFolder & Err.Description & "</P>"
strCurDir = Request.QueryString("curdir")
set dir = fso.GetFolder(strCurDir)
end if
%> |