Ver Mensaje Individual
  #15 (permalink)  
Antiguo 03/07/2012, 15:28
prod6
 
Fecha de Ingreso: abril-2012
Mensajes: 71
Antigüedad: 11 años, 11 meses
Puntos: 16
Respuesta: abrir pdf en asp

entiendo...
nunca he usado la subrutina que estas usando (ShowSubFolders) pero en pocas palabras lo que ese error significa es que tu estas tratando de abrir un directorio del tipo

"C:\inetpub\wwwroot\cummins\CHFS\" & archivo --> phyiscal

cuando en realidad tendrías que abrir un directorio del tipo

"http://localhost/cummins/CHFS/" & archivo --> virtual

encuentra la manera de traducir el primero en el segundo y el archivo se abrirá...
de todas maneras esperemos a ver si estoy en lo cierto...

pd: una manera muy util de orientarse cuando no estamos familiarizados con el codigo es hacer un archivo de log
cambia tu rutina por esta y muestrame lo que dice el archivo Log.log:

Código:
Sub ShowSubFolders(Folder)
            Dim ls
            Set ls = Server.CreateObject("Scripting.FileSystemObject")
            Set LogFile = ls.CreateTextFile("Log.log")
            For Each Subfolder in Folder.SubFolders
 
                
                Set objFolder = objFSO.GetFolder(Subfolder.Path)
                Set colFiles = objFolder.Files
 
                For Each objFile in colFiles
 
                    if dato & ".pdf" = objFile.Name then
 
                    archivo =  Subfolder.Path &"\"& objFile.Name 
                     
                     LogFile.WriteLine(archivo)
                    
                   'Response.Redirect(Request.QueryString("archivo"))
                    Response.Write (archivo)
                  
                    end if
                
                Next
                
                ShowSubFolders Subfolder
            
            Next
 
        End Sub
pd2: otra cosa, yo el Response.Redirect(archivo) lo pondría fuera del bucle For y pondría un Break o un Exit Sub en cuanto el archivo sea hallado...

Última edición por prod6; 03/07/2012 a las 15:38