Perfetto ora è tutto Ok
Grazie
Metto via il programmino per un futuro non si sa mai

Riassumo per altri copia e incolla file testo e
salvare come estensione esempio:
webcam.vbs
Lo si fa eseguire con le pianificate di win o con Download System Scheduler for Windows, iDailyDiary, Autorota, Launchkey, Clipboards, Daily Diary
Codice senza archivio

Codice:
ImageFile = "webcam.jpg"
Cartella_radice = "D:\Documenti\Meteo\"
rnd_num=Int((999 * Rnd) + 1)
URL = "http://sacilemeteo.altervista.org/_altervista_ht/webcam.jpg?" & rnd_num

Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False
xml.Send
set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
oStream.open
oStream.write xml.responseBody

oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist

oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
oStream.close

set oStream = nothing
Set xml = Nothing
Codice Con archivio

Codice:
Set sc = CreateObject("Scripting.FileSystemObject")

Cartella_radice = "D:\Documenti\Meteo\"
rnd_num=Int((999 * Rnd) + 1)
URL = "http://sacilemeteo.altervista.org/_altervista_ht/webcam.jpg?" & rnd_num


anno=Year(Date)
mese=right ( "00" & Month(Date),2)
giorno=right ( "00" & Day(Date),2)
ora= right ( "00" & Hour(Now) ,2)
minuti= right ( "00" & Minute(Now)  ,2)


Nome_img = "cam_" & ora & "_" & minuti & ".jpg"


cartella_odierna = Cartella_radice & anno &"-" & mese &"-" & giorno & "\"


' se non esiste cartella RADICE...la crea
If Not sc.FolderExists(Cartella_radice) Then  sc.CreateFolder Cartella_radice

' se non esiste cartella odierna...la crea
If Not sc.FolderExists(cartella_odierna) Then  sc.CreateFolder cartella_odierna


Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False
xml.Send


If xml.Status = 200 Then


    set oStream = createobject("Adodb.Stream")
    Const adTypeBinary = 1


    oStream.type = adTypeBinary
    oStream.open
    oStream.write xml.responseBody


    oStream.savetofile cartella_odierna & Nome_img, 2 '  OverWrite
    oStream.close


   set oStream = nothing
End if


Set xml = Nothing
Set sc = Nothing