verificare esistenza file esterno ?

[erlupacchiotto]

e' possibile dal proprio sito verificare l'esistenza di un file presente su un altro server ?
grazie mille
ciao

[Roby_72]

Tramite XMLHTTP.
Lo "status=200" ti dice che esiste.
Cerca nel forum.

Roby

[erlupacchiotto]

ho trovato grazie
ma risulta non funzionare in locale (sul server dovro' provarlo), hai qualche dritta ?
ciao

[Roby_72]

In che senso...???
Cerca sul forum e trovi script già pronti.

Roby

[erlupacchiotto]

ho trovato questo, ma quando lo seguo mi si pianta il localhost

        
        file = ParmFile
        Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
           xmlhttp.Open "GET", file, False 
           xmlhttp.Send
           
           'quì recupero il contenuto testuale 
           pagetxt = CStr(xmlhttp.ResponseText)
           
           'quì controllo lo stato della pagina
           pagestatus = xmlhttp.Status 
        Set xmlhttp = Nothing 
        
        'se lo stato della richiesta è = 200 allora la pagina è disponibile
        response.write "status--->" & pagestatus
        If CInt(pagestatus) = 200 Then
        	FileExist = true
        Else 
        	FileExist = false
        end if

[Roby_72]

Potresti non avere quel componente in locale.

Roby

[erlupacchiotto]

e quindi ? cosa posso fare ?
grazie
ciao

[Roby_72]

Cercarlo su Microsoft oppure fare le tue prove sul web direttamente in uno spazio che già ce l'ha.

Roby

[erlupacchiotto]

scusami come si chiama esattamente la componente ?
grazie
ciao

[grario]

la mia necessità è simile ma non mi basta sapere se esiste con un status=200 ma vorrei che mi caricasse il file JPG di una cartella se esiste, altrimenti visualizza una immagine alternativa tipo nocover.jpg
Ho fatto questo codice, è corretto?

'--Controllo il file se esiste
url="http://www.sito.com/galleria/"&VARFILE

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
BlnFile = FileObject.FileExists( Server.MapPath(url) )

If blnFile = true then
   '--Operazioni da eseguire se esiste
else
   '--Operazioni da eseguire se NON esiste
End if
Set FileObject = Nothing