Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/08/2002, 14:45
Avatar de RsOfT
RsOfT
 
Fecha de Ingreso: marzo-2002
Ubicación: InterNET
Mensajes: 1.121
Antigüedad: 23 años, 2 meses
Puntos: 7
Comprobar si un archivo existe (Hice Find)

Estuve buscando a ver si habían hablado de este tema y encontre esto:
<a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=57123' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a>

Lo estuve modificando a mi antojo, pero da el siguiente error:
Código:
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/vehiculos/InfoDetallada.asp, line 261, column 45
file = response.Write(rstVTDC(&quot;Cod&quot;) &amp; &quot;.jpg&quot;
--------------------------------------------^
Mi código es el siguiente:
Código:
dim filesys, filetxt, getname, path, file
Set filesys = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set filetxt = filesys.CreateTextFile(&quot;c:\somefile.txt&quot;, True)

file = response.Write(rstVTDC(&quot;Cod&quot;) &amp; &quot;.jpg&quot;  

path = filesys.GetAbsolutePathName(&quot;\file&quot;)
getname = filesys.GetFileName(path)
filetxt.Close

If filesys.FileExists(path) Then
	Response.Write (&quot;Archivo Encontrado&quot;)
End If
QUe debo arreglarle?

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--