Mapa de sitio

[titon]

Saludos,

busco algun algoritmo para recorrer el arbol de directorios de una web.

[unholy]

Que es lo que quieres hacer?? buscar undetermiando archivo dentro del directorio virtual ????

Es mas que nada que sabiendo que quieres hacer se puede afinar mas la respuesta.

[titon]

Bueno me explico:

Me gustaría encontrar algun algoritmo para recorrer todos los directorios de mi web y buscar nombres de carpetas y nombres de htm para hacer un sitemap (trabajo con javascript y algunos buscadores, o todos no siguen los java)

No se si habria algun algoritmo mejorado por ahi.

[LeCLUB]

Utiliza "FileSystemObject", te permite entre otras opciones, listar carpetas hay en un directorio, subcarpetas, archivos, tamaño, etc etc etc

[perrogrun]

Con esta rutina puedes navegar por los direcctorios de la web. No es lo que buscas exactamente pero a lo mejor te sirve:

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