directorios y subdirectorios de windows

fabian23 · #1 (**permalink**) 05/06/2012, 12:53

Buenas tardes quisiera saber si existe alguna instruccion en asp para poder navegar en los directorios y subdirectorios de windows, me encuentro realizando una pagina web de consulta y quisiera saber si hay una instruccion para que el programa navegue por las carpetas y subcarpetas asta encontrar el archivo que quiero con el metodo FileExists espero su ayuda me urge !!! ya que no e encontrado nada mas que el objeto FileSystemobject y una instruccion como esta DirectoryInfo.GetFileSystemInfos () que esta en asp

JuanRAPerez · #2 (**permalink**) 05/06/2012, 13:53

lee
http://www.brainjar.com/asp/dirlist/

suerte

fabian23 · #3 (**permalink**) 05/06/2012, 15:01

Cita:

Iniciado por JuanRAPerez

lee
[url]http://www.brainjar.com/asp/dirlist/[/url]

suerte

muchas gracias !!!!! tambn encontre aqui varias cosas que me pueden ayudar

[url]http://www.forosdelweb.com/f15/ver-contenidos-carpetas-subcarpetas-654477/[/url]

[url]http://www.forosdelweb.com/f15/mostrar-carpetas-subcarpetas-399744/[/url]

[url]http://www.forosdelweb.com/f15/fso-recursivo-mi-cabeza-esta-por-explotaaaarrrrrrrr-242658/[/url]

JuanRAPerez · #4 (**permalink**) 05/06/2012, 15:19

suerte
en tu accion

fabian23 · #5 (**permalink**) 18/06/2012, 10:35

Cita:

Iniciado por JuanRAPerez

suerte
en tu accion

buenas tardes queria ver si me podria ayudar e estado investigando por todos lados y nadie me da respuesta!!! mire mi codigo es el siguiente mi html:
<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>
es donde el usuario ingresa el archivo a biscar y mi php es este

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 puede ver mi codigo hace la busqueda en los directorios pero no se como hacer para que la busqueda se base en el dato que ingresa el usuario o para comprobar si el dato o archivo existe en las carpetas por favor le suplico que me ayude

JuanRAPerez · #6 (**permalink**) 21/06/2012, 08:18

compara objFile.Name con tu variable

si objFile.Name imprime "nombrearchivo.pdf"

entonces compara

if objFile.Name = tuvariablepalabra & ".pdf" then

eso si te encontrara que sean iguales...