FileExists

[fabian23]

buenas tardes tengo un problema !!! necesito hacer un buscador que acceda en los directorios de windows es decir que el usuario con solo ingresar el nombre del archivo lo pueda abrir primero que nada quiero que mi programa o pagina al momento de recibir el nombre del archivo vea si existe el archivo pero no me arroja nada :S mi codigo es el siguiente en html y ASP

Código PHP:

  form method="post" action="buscar.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>  
   

y en ASP tengo el siguiente

Código PHP:

  <% Dim fso, archivo, dato 
dato = request.Form("busqueda") 
 
Set fso = server.CreateObject("Scripting.FileSystemObject") 
if fso.FileExists ("C:/Users/Fabian/Documents/CHFS/" & dato & ".txt") = true then  
Response.Write = "True" 
 
end if 
%>  
   

el que tengo y ewstoy poniendo cmo dato se llama casa.txt para que me arroje si existe el txt pero en realidad quiero abrir pdfs estoy iniciandolo por eso mi duda espero me ayuden

[JuanRAPerez]

y te da algun error?

[prod6]

las barras van invertidas
if fso.FileExists ("C:\Users\Fabian\Documents\CHFS\" & dato & ".txt") = true
o en su defecto
if fso.FileExists (Server.MapPath("C:/Users/Fabian/Documents/CHFS/" & dato & ".txt")) = true

[fabian23]

Iniciado por JuanRAPerez

y te da algun error?

pues mi codigo lo e corregido muchas veces pero no me devuelve nada :S me da el error de an error ocurred on the server when processing the URL. Please contact the system administrator

if you are the system administrator please click here to find out more about this error

[fabian23]

Iniciado por prod6

las barras van invertidas
if fso.FileExists ("C:\Users\Fabian\Documents\CHFS\" & dato & ".txt") = true
o en su defecto
if fso.FileExists (Server.MapPath("C:/Users/Fabian/Documents/CHFS/" & dato & ".txt")) = true

ya lo intente y tampoco me manda el error que le mande a la persona que contesto primero aqui abajio :S no se que sea!!! mi dato lo modifique asi y no queda ...

Código PHP:

  <% 
Dim fso, dato  
dato = request.Form("busqueda") 
 
    Set fso = server.CreateObject("Scripting.FileSystemObject") 
 
 
if dato ="" then Response.Write "No se ingreso dato a buscar" 
else  fso.FileExists ("C:/Users/Fabian/Documents/CHFS/" & dato & )  then   
          Response.Write "True"     
else      Response.Write = "False" 
 
     
end if 
set fso=nothing 
 
 %>  
   

y me arroja el error :S no se que hacer

[JuanRAPerez]

haz probado
colocandole privilegios al usuario

iusr al directorio CHFS

[IsaBelM]

traigo el código que posteaste en el foro de js

el primer error es la condicional y el segundo es la concatenación

<%
Dim fso, dato
dato = Request.Form("busqueda")

Set fso = server.CreateObject("Scripting.FileSystemObject")

if dato ="" then
Response.Write "No se ingreso dato a buscar"
elseif fso.FileExists ("C:/Users/Fabian/Documents/CHFS/" & dato) = true then
Response.Write ("File C:/Users/Fabian/Documents/CHFS/" & dato & "exists!")
else
Response.Write ("File C:/Users/Fabian/Documents/CHFS/" & dato & "does not exists!")

end if
set fso=nothing

%>

[fabian23]

Iniciado por IsaBelM

traigo el código que posteaste en el foro de js

el primer error es la condicional y el segundo es la concatenación

graciaaaaaaaaaas !!!!!!!!!!! eres un amor !!! ahora me manda que ningun fichero existe deja ver como solucionarlo tengo el tiempo encima :S tengo que hacer un buscador de archivos y me quedan dos meses y no le se a ASP :( !!!! te lo agrades dios te lo pague

[fabian23]

Iniciado por JuanRAPerez

haz probado
colocandole privilegios al usuario

iusr al directorio CHFS

muchas gracias tambn es eso !! si tengo los archivos en la carpeta donde tengo la aplicacion osea el inetpub si los encuentra pero si los tengo en documents no !!

[JuanRAPerez]

es una tarea la que estas haciendo?

[fabian23]

Iniciado por JuanRAPerez

es una tarea la que estas haciendo?

buenos dias es un proyecto !!! es un buscador de archivos es para poder terminar mis estudios pero yo le se a PHP y me salieron con que no lo puedo usar por el servidor y en ASP no se nada :S y tengo 2 meses para terminar

[fabian23]

Iniciado por IsaBelM

traigo el código que posteaste en el foro de js

el primer error es la condicional y el segundo es la concatenación

hola como as estado necesito de tu ayuda!!!!! tengo un codigo el cual me hace una busqueda recursiva y me arroja las direcciones de los archivos en carpetas y subcarpetas esto con el objFSO.GetFolder (objStartFolder) ahora lo que requiero es que solo me arroje pero el que el usuario ingrese y mi idea es juntar ese objeto con el FileExists como vez?? si estoy bien?? uso el Getfolder para que me recorra directorios y subidrectoiros y el fileexists para que me tome el dato del usuario y arrojarlo ya de ahi ps ponerlo que sea link para que se pueda abrir como vez?

[fabian23]

Iniciado por IsaBelM

traigo el código que posteaste en el foro de js

el primer error es la condicional y el segundo es la concatenación

me podrias ayudar por favor !!!!!! mi codigo es el siguiente 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>  
   

y mi ASP 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  
 
%>  
   

el chiste es que quiero que se meta en los directorios y me compruebe si existe el archivo que busca el usuario no se como hacerle :S !!!!