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