Tema: FileExists
Ver Mensaje Individual
  #13 (permalink)  
Antiguo 17/06/2012, 19:05
fabian23
 
Fecha de Ingreso: abril-2012
Mensajes: 93
Antigüedad: 12 años, 7 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">Node Serie:</font
<
input type="text" name="busqueda" /> </></b></center
<
center><input type="submit" value="Buscar"></center

 </
form
y mi ASP es este
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 

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