pues, se que esta ya en el foro...
pero no recuerdo...
pero era algo similar a esto
Código ASP:
Ver original<body>
<%
pa="http://"&_
Request.ServerVariables("SERVER_NAME")&"/pruebas/"
response.Write pa
%>
Mostrar la ruta:<input type="text" id="mostrar" size="150" />
<table><tr><td>
<%
response.Buffer=true
'obtengo el directorio físico de la carpeta donde está este script
nombre_carpeta = Server.MapPath(".") & "\"
response.write "<h1>-" & nombre_carpeta & "</h1>"
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
'traigo los archivos de la carpeta
Set archivos = carpeta.Files
'para cada archivo, muestro su nombre.
response.Write "<h2>ROOT</h2>"
for each nombre_archivo in archivos
tyfile = fso.GetExtensionName(nombre_archivo.name)
response.Write "<br>" & tyfile
response.Write " - " & nombre_archivo.name
next%>
</body>