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
%>