Buscador interno

con filesystemobject, y llamadas recursivas para cada subcarpeta , no es
dificil de hacer =)


"Bernies" escribió en el mensaje
news:

Alguien sabe donde puedo conseguir un codigo que mire en ASP el
contenido de una carpeta y busque en las paginas html y asp su código en
busca de la palabra que le busquemos.

Por ejemplo c:/inetpub/wwwroot/webdeprueba/ y que busque en todas las
subcarpetas.

Gracias a todos.

Seria usando:

fsoLectura = 1
Set objTextStream = objFSO.OpenTextFile("c:\ejemplo.txt", fsoLectura)

Pero como recojo la lista de archivos que me interesa ver? (quiero mirar
todos los *.HTML y *.ASP de un directorio)
Supongo que despues con EACH recorro todos los archivos, pero no se hacer lo
anterior. Tengo mas de 200 archivos, no sería demasiado para el servidor???

Agradecería algo de ayuda o consejo.

Gracias Dani.

"Bernies" wrote in message
news:

Seria usando:

fsoLectura = 1
Set objTextStream = objFSO.OpenTextFile("c:\ejemplo.txt", fsoLectura)

Pero como recojo la lista de archivos que me interesa ver? (quiero mirar
todos los *.HTML y *.ASP de un directorio)
Supongo que despues con EACH recorro todos los archivos, pero no se hacer

lo

anterior. Tengo mas de 200 archivos, no sería demasiado para el

servidor???

Utilizando GetFolder de devuelve todos los ficheros de un directorio,
haz un bucle por esos ficheros y luego para cada fichero tiene la propiedad
"path" (y me parece que "name") No tienes más que mirar la última parte del
nombre de cada fichero para sacar la extensión y ver si lo tienes que
filtrar o no.

Busca la referencia del objeto "Scripting.FileSystemObject" que te ira
bien.

Además, como consejo, yo suelo programar primero en VB, por aquello del
IntelliSense del IDE, una vez lo tienes hecho lo pasas a ASP, el cambio
suele limitarse a quitar todos los tipos y a cambiar todos los "new" por un
"CreateObject"

Por ahora he conseguido hacer esto, no creo que necesite mas ayuda.

Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("\BancoDatos\"))
'Nos comienza a listar los archivos
'Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & ObjetoCarpeta.Name & "</B>:<BR>"

'busca en todos los archivos que encuentra en dicha carpeta y nos devuelve
el nombre
For Each Fichero in ObjetoCarpeta.Files
if right(Fichero.Name, 3) = "ASP" or right(Fichero.Name, 3) = "asp"
or right(Fichero.Name, 4) = "HTML" or right(Fichero.Name, 4) = "html"
then
Response.Write Fichero.Name & "<BR>"
end if
Next