Tema: FileExists
Ver Mensaje Individual
  #13 (permalink)  
Antiguo 17/06/2012, 19:05
fabian23
 
Fecha de Ingreso: abril-2012
Mensajes: 93
Antigüedad: 14 años, 6 meses
Puntos: 0
Respuesta: FileExists

Cita:
Iniciado por IsaBelM Ver Mensaje
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 !!!!