Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 navegar en directorios (fileexists y recursividad)
 Foro Bloqueado  Tema Bloqueado


Autor Temas
fabian23
Starting Member

Mexico
2 Posts
Mensajes - 17 Jun 2012 :  20:24:08  Ver Perfil  Enviar Email
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:
<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
<%
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 !!!!!

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar