Comprobar si un archivo existe (Hice Find)

[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