verifica esistenza file

[moribura]

Ciao a tutti,

mi è capitato di dover estrarre dati da un db non mio e mi capita di incontrare immagini non presenti. Posso verificare prima di stamparle se il file remoto esiste?

Grazie

[optime]

con FSO, immagino

[moribura]

sai come si usa?..non ho trovato nulla..

[br1]

http://www.devguru.com/technologies/vbscript/14058.asp

[moribura]

hrazie mille

[moribura]

ho provato cosi:
<%
dim filesys
imag= DBrec("immagine")
Set filesys = CreateObject("Scripting.FileSystemObject")

If filesys.FileExists(imag) Then
imag = imag
else
imag = "img/no_image.gif"
End If
%>

ma mi dice sempre che non esiste..

[br1]

imag= DBrec("immagine") deve contenere un percorso assoluto nel server... altrimenti devi usare Server.MapPath() per ricavarlo.

ciao

[mosquito70]

Con questa parte di codice, verifichi se esiste il file e lo cancelli dalla dir.
Per la cancellazione devi impostare i permessi sulla dir indicata.

Dim objFSO
path = "docuavvi\file\archivio\file.zip"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

if objFSO.FileExists(server.mapPath(path)) then
'Il file viene cancellato
objFSO.DeleteFile(server.mapPath(path))
end if

Set objFSO = Nothing

[moribura]

Dunque,

io ho un'immagine su un server remoto non mio ma del cliente.
Vorrei verificare prima di visualizzare un'immagine vuota se quest'ultima è presente o meno.
La stringa DVBrec("immagine") contiene l'url dell'immagine cosi formato:

http://www.sitocliente.com/immagine/img.jpg

Come posso fare allora?

Grazie

[Domenix]

Con l'oggetto XMLHTTP
Fai la chiamata e poi con la proprietà status dell'oggetto verifichi se da 200 (esiste).