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