Comprobar si un archivo existe (Hice Find)

[RsOfT]

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("Cod") & ".jpg"
--------------------------------------------^

Mi código es el siguiente:

Código:

dim filesys, filetxt, getname, path, file
Set filesys = Server.CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile("c:\somefile.txt", True)

file = response.Write(rstVTDC("Cod") & ".jpg"  

path = filesys.GetAbsolutePathName("\file")
getname = filesys.GetFileName(path)
filetxt.Close

If filesys.FileExists(path) Then
	Response.Write ("Archivo Encontrado")
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--

[AlZuwaga]

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

que es esa atrocidad???

Variable = response.Write ?¿?¿

No se si te solucione el problema... pero quitale el response.write:

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


saludos

[RsOfT]

me me chispotio,
jajajajaja

[RsOfT]

Depure el código, me muestra la imagen, pero me sale imagen no encontrada :(

Código:

dim filesys, filetxt, getname, path, file
Set filesys = Server.CreateObject("Scripting.FileSystemObject")

file = rstVTDC("Cod") & ".jpg"

path = filesys.GetAbsolutePathName("\" & file)
getname = filesys.GetFileName(path)

If filesys.FileExists(path) Then
	Response.Write ("Archivo Encontrado")
else
	Response.Write ("Archivo No Encontrado  ")
End If

[RsOfT]

por favor, q alguien me ayude, como rayos yo compruebo si un archivo existe con ASP???

.::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--

[RsOfT]

I did :)

Asi se comprueba si un archivo existe, anotenlo...

Código:

dim filesys, file
Set filesys = Server.CreateObject("Scripting.FileSystemObject")

file = Server.MapPath("\vehiculos\" & rstVTDC("Cod") & ".jpg")

If filesys.FileExists(file) = true Then
Response.Write ("Archivo Encontrado")
else
Response.Write ("Archivo No Encontrado")
End If

en el Campo Cod es que tengo el nombre del archivo, por eso utilizo mi recordset ahi, pero pueden poner el nombre directo si quieren ;)

.::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--