Visualizar el contenido de un directorio con ASP

[Owen-Bonilla]

Código:

  <%
If Request.ServerVariables("HTTPS") = "off" then ' off for example only
 Dim MyFSO, MyFiles, MySelf, MySelfTemp
 Dim MyPhysPath, MyRootPath, MyURLPath
 MySelf = Request.ServerVariables("SCRIPT_NAME")
 MyRootPath = Server.MapPath(MySelf)
 MySelfTemp = Replace(MySelf, "/", "\")
 MyRootPath = Replace(MyRootPath, MySelfTemp, "\")
 Set MyFSO = CreateObject("Scripting.FileSystemObject")
 
 MyPhysPath = Request("MyPhysPath")
 If MyPhysPath = "" then
  MyPhysPath = MyRootPath
 Else
  MyPhysPath = MyPhysPath &"\"
 End if