Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Asp
Code

Asp - Buscador de archivos en carpetas de servidor

Códigos Asp

El ejemplo consigue realizar una consulta desde un formulario y mostrar los resultados obtenidos desde los archivos ubicados en la carpeta y subcarpetas que hayamos especificado.
Visitas: 24,889 - 02/07/2005 12:46:07
Archivo descargable »
CODIGO SIN DEMOSTRACIONDownloadComentario
EXPLICACION

Tenemos que modificar las siguientes lineas:

objFSO.GetFolder(Server.MapPath("/public")
objFSO.GetFolder(Server.MapPath("/public" & objFolder1.name))

con el path correcto de la carpeta en la que vamos a buscar.

El ejemplo descargable contiene el formulario para realizar la busqueda.

CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2. Const fsoForReading = 1
  3. Dim strbusca_palabra
  4. strbusca_palabra = Request("busca_palabra")
  5. Dim objFSO
  6. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  7. Dim objFolder
  8. Set objFolder = objFSO.GetFolder(Server.MapPath("/public"))
  9. response.write objFolder & "<BR>"
  10. Dim SubFolders
  11. Set SubFolders = objFolder.SubFolders
  12. Dim objFile, objTextStream, strFileContents, bolFileFound
  13. bolFileFound = False
  14. i = 0
  15. For Each objFolder1 in SubFolders
  16. i = i + 1
  17. if i <> 1 then
  18. Set objFolder = objFSO.GetFolder(Server.MapPath("/public" & objFolder1.name))
  19. end if
  20. For Each objFile in objFolder.Files
  21.    If Response.IsClientConnected then
  22.      Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
  23. strFileContents = objTextStream.ReadAll
  24. on error resume next
  25.  If InStr(1,strFileContents,strbusca_palabra,1) then
  26. if i <> 1 then
  27.      Response.Write "<LI><A HREF=" & objFolder1.name & "/" & objFile.Name & ">" & objFile.Name & "</A><BR>"
  28.    else
  29.      Response.Write "<LI><A HREF=" & objFile.Name & ">" & objFile.Name & "</A><BR>"
  30.    end if
  31. bolFileFound = True
  32.    End If
  33. objTextStream.Close
  34. End If
  35. Next
  36. Next
  37. if Not bolFileFound then Response.Write "No se encontraron resultados<br><a href='javascript:;history.back(-1)'>Intentar nuevamente</a>"
  38. Set objTextStream = Nothing
  39. Set objFolder = Nothing
  40. Set objFSO = Nothing
  41. Set SubFolders = Nothing
  42. %>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Buscador de archivos en carpetas de servidor" href="http://www.tutores.org/codigo/1515/" target="_blank">Buscador de archivos en carpetas de servidor</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
11/10/2006 14.30.34
5 5
Excelente!
Comentario usuario
ppnativo
5 5
no funciona el archivo no busca el folde1 no esta declarado
Comentario usuario
10-04-2010 15:07:45
1 5
Hola quisiera saber algo, soy inexperto en esto.
que es lo que tengo que hacer para poder utilizar el archivo asp. en un enlace o algo asi como le ago para que funcione
Comentario usuario
pacosss
3 5
gracias por el aporte me esta sacando de un grandisimo problema..........................................
Comentario usuario
fabian23
4 5
quisiera que me ayudaran !! necesito hacer un buscador de archivos !!! pero los archivos se encuentran en diferentes carpetas y subcarpetas esta estructurado asi años>meses>tipo de archivos> eldato.pdf creo esto me serviria queria hacerlo con un programa recursivo y el file exists por favor agradeceria su ayuda :S
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.