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