Foros del Web » Programando para Internet » ASP Clásico »

navegar en directorios (fileexists con recursividad)

Estas en el tema de navegar en directorios (fileexists con recursividad) en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 15/06/2012, 13:55
 
Fecha de Ingreso: abril-2012
Mensajes: 93
Antigüedad: 10 años, 7 meses
Puntos: 0
Exclamación navegar en directorios (fileexists con recursividad)

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">Node Serie:</font>
<
input type="text" name="busqueda" /> </></b></center>
<
center><input type="submit" value="Buscar"></center>

 </
form
ASP
Código PHP:
<%
Dim fsodato 
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 !!!!!
  #2 (permalink)  
Antiguo 18/06/2012, 07:46
 
Fecha de Ingreso: abril-2012
Mensajes: 93
Antigüedad: 10 años, 7 meses
Puntos: 0
Respuesta: navegar en directorios (fileexists con recursividad)

por favor ayudenme !!!!! :S

Etiquetas: asp, directorios, navegar, server
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:28.