Un altro quesito...
Un file (dati.txt) contiene un elenco: ad ogni riga corrisponde un URL relativo ad una immagine. Ho scritto questa routine per scaricare e salvare le immagini come Foto1.jpg, Foto2.jpg, ecc:
FileOpen (c1,"dati.txt",cRead ,, cASCII)
URL = FileRead (c1)
Do Until URL = EOF
i = i + 1
DownloadFile(AppPath & "\RSS\Notizie\Foto" & i & ".jpg")
URL = FileRead (c1)
Loop
FileClose (c1)
Sub DownloadFile (LocalFile)
Response.New1
Request.New1(URL)
Request.TimeOut = 30000
Response.Value = Request.GetResponse
Reader.New1(Response.GetStream,true)
FileOpen(c1,LocalFile,cRandom)
Writer.New1(c1,false)
count = Reader.ReadBytes(buffer(),4096)
Do While count > 0
Writer.WriteBytes2(buffer(),0,count)
count = Reader.ReadBytes(buffer(),4096)
Loop
FileClose(c1)
Response.Close
End Sub
Quando vado ad eseguirlo, mi viene segnalato un errore nella sub DownloadFile, nel punto segnato in grassetto. Potreste dirmi anche qui dov'è l'errore?
|