navegar en directorios (fileexists con recursividad)

fabian23 · #1 (**permalink**) 15/06/2012, 13:55

buenas tardes busco hacer un buscador de archivos con ingresar un dato verificar si existe y si si existe arrojar la ruta y si no que diga que no existe el caso es que no me sale :S !! implemente un codigo de recurisvidad y lo quiero revolver con un fileexists pero no me sale no soy experto en asp :S y me queda poco tiempo para poder terminarlo mi codigos son los siguientes:

html:

Código PHP:

  <BODY> 
 
<center><b><font color="black">BUSQUEDA DE CHFS</b></center> 
<form method="post" action="buscar5.asp"> 
<center><b><font color="black">No. de Serie:</font> 
<input type="text" name="busqueda" /> <p /></b></center> 
<center><input type="submit" value="Buscar"></center> 
 
 </form>

ASP

Código PHP:

  <% 
Dim fso, dato  
dato = Request.Form("busqueda")  
            
if dato ="" then  
Response.Write ("<center><b><big>No se ingreso dato a buscar</big></b></center>")  
else  
'fso.FileExists ( dato &  ".pdf") then 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objStartFolder = "C:\inetpub\wwwroot\cummins\CHFS\" 
Set objFolder = objFSO.GetFolder(objStartFolder) 
  'response.write "<br>"&objFolder.Path&"<br>"&"<br>" 
Set colFiles = objFolder.Files 
For Each objFile in colFiles 
  'response.write objFile.Name&"<br>" 
      Next 
ShowSubfolders objFSO.GetFolder(objStartFolder) 
 
Sub ShowSubFolders(Folder) 
   For Each Subfolder in Folder.SubFolders 
    '  response.write "<br>"&Subfolder.Path&"<br>"&"<br>" 
        Set objFolder = objFSO.GetFolder(Subfolder.Path) 
        Set colFiles = objFolder.Files 
        For Each objFile in colFiles 
     '     response.write objFile.Name&"<br>" 
        Next 
        ShowSubFolders Subfolder 
 
            Next     
   'end sub 
    for each Files in colFiles 
 
Set fso = server.CreateObject("Scripting.FileSystemObject")  
 
    if fso.FileExists ( dato &  ".pdf") then   
 Response.Write ("File C:/Users/Fabian/Documents/CHFS/" & dato & "<b><big><li>El archivo existe!</li></big></b>")  
else  
Response.Write ("File C:/Users/Fabian/Documents/CHFS/" & dato & "<b><big><li>El archivo no existe!</li></big></b>")  
 end if 
   next 
End Sub 
Response.Write ("File" & dato & "<b><big><li>El archivo si existe!</li></big></b>")  
 end if 
 
%>

como pueden ver no me encontrara el archivo por que en el fileexists tengo una ruta absoluta no se si se pueda enlzar un metodo con otro por ejemplo poner Fileexists(objFSO & dato & ".pdf") espero me puedan ayudar me urge !!!!!

fabian23 · #2 (**permalink**) 18/06/2012, 07:46

por favor ayudenme !!!!! :S