<form action=prueba3.asp method=post>
<%
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
dim carpeta
'Compruebo si recibo una carpeta desde el formulario
if (request.form="") then
'si no recibo carpeta, tomo la raiz
'creo el objeto disco C:
unidad="c"
set discoC = FSO.GetDrive(unidad)
'Tomo el directorio raiz
set carpeta = discoC.rootFolder
'indico en la carpeta que estoy
response.write "Accediendo a la Raiz<p>"
else
'si recibo carpeta, la extraigo
strCarpeta = request.form("carpeta")
set carpeta = FSO.getFolder(strCarpeta)
'indico en la carpeta que estoy
response.write "Accediendo a la carpeta: " & strCarpeta & "<p>"
'si no es la carpeta raiz, coloco el enlace para ir al padre
if (not carpeta.isRootFolder) then
'coloco un enlace para ir a la carpeta padre
carpeta_padre = carpeta.parentFolder.path
response.write "Volver a: <input type=submit name=carpeta value='" & carpeta_padre & "'><p>"
end if
end if
'extraigo la colección de carpetas
set coleccionCarpetas = carpeta.subFolders
'para cada carpeta coloco un botón para ir a ella.
for each carpeta in coleccionCarpetas
response.write "<input type=submit name=carpeta value='" & carpeta.path & "'><br>"
next
%>
</form>
<hr><hr>
<%=strCarpeta%><br>
<%
Set lista_archivos = FSO.GetFolder(strCarpeta)
For each filefound in lista_archivos.files
direccion = replace(filefound.path,"/","-")
direccion = replace(direccion,"\","-")%>
<%=filefound.name%> <br>
<%Next%>