Ver Mensaje Individual
  #19 (permalink)  
Antiguo 27/06/2012, 14:28
fabian23
 
Fecha de Ingreso: abril-2012
Mensajes: 93
Antigüedad: 12 años
Puntos: 0
Respuesta: buscador de archivos en el servidor

Cita:
Iniciado por IsaBelM Ver Mensaje
no se puede abrir con asp. crea un link tal que así
hola que tal sabes que e pensado !! jalar la variable a un javascript mi ruta del documento la estoy jalando a una variable llamada archivo y esa variable archivo la puedo jalar a un javascript y de java script crear un window.location o alguna instruccion que me permita abrirlo no resultara ?? :S si no es asi de todos modos te agradesco mucho tu respuesta!! a ota cosa es posible meter la instruccion de href en un archivo .asp ya que mi codigo de busqueda no esta en un html si no en un asp ??, osea solo seria en si direccionar el navegador a la ruta del archivo ya que mi programa me arroja la ruta absoluta del archivo esa ruta la copio y la pego en la barra de direcciones del explorer y me abre el pdf entonces no seria posible hacer automatico el direccionamiento? y con otra molestia isabel tu que eres toda una experta me podrias decir si mi codigo si esta bien ??? esque hoy se lo enseñe a un ingeniero y me dijo que estaba mal definido :S
Código HTML:
Ver original
  1.  
  2. <center><b><font color="black">BUSQUEDA DE CHF'S</b></center>
  3.  <form method="post" action="buscar20.asp">
  4. <center><b><font color="black">No. de Serie:</font>
  5. <input type="text" name="busqueda" /> <p /></b></center>
  6. <center><input type="submit" value="Buscar"></center>
  7.  
  8.  
  9.  </form>
este es mi index basicamente

y mi ASP
Código ASP:
Ver original
  1. <%
  2.     Dim fso, dato, archivo
  3.     dato = Request.Form("busqueda")
  4.  
  5.     Set fso = server.CreateObject("Scripting.FileSystemObject")
  6.  
  7.     if dato = "" then
  8.    
  9.       Response.Write ("<script>alert('No ingreso dato a buscar');</script>" & Response.Redirect("index.html"))
  10.            
  11.           else
  12.  
  13.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  14.         objStartFolder = "C:\inetpub\wwwroot\cummins\CHFS\"
  15.        
  16.  
  17.         ShowSubfolders objFSO.GetFolder(objStartFolder)
  18.  
  19.         Sub ShowSubFolders(Folder)
  20.             For Each Subfolder in Folder.SubFolders
  21.  
  22.                
  23.                 Set objFolder = objFSO.GetFolder(Subfolder.Path)
  24.                 Set colFiles = objFolder.Files
  25.  
  26.              
  27.                 For Each objFile in colFiles
  28.                
  29.                     if dato & ".pdf" = objFile.Name then
  30.  
  31.                     archivo = Subfolder.Path &"\"& objFile.Name
  32.      Response.Write ("El archivo si se encuentra:&nbsp&nbsp" + archivo)
  33.   end if
  34.     Next
  35.                 ShowSubFolders Subfolder
  36.              Next
  37.             End Sub
  38.     end if
  39. %>

lo que debe de hacer es hacer una busqueda en los directorios y subdirectorios de windows y me envia la ruta del archivo si el archivo existe y como te comentaba quiero que me arroje el archivo automticamente :S si esta bien el cidgo vdd??? :S el ingeniero me dijo que estaba mal declarado y estaba mal todo espero me puedas responder gracias

Última edición por fabian23; 28/06/2012 a las 18:43