[QUOT
E]Originariamente inviato da oregon
Ma questo thread si intitola "scaricare automaticamente definizioni virus" e quindi si presume che il computer sia collegato (come si era capito da tutti i post precedenti) ...
Adesso hai cambiato idea? [/QUOTE]
ma non ho nemmeno detto che le definizioni virus scaricate sono per questo computer...
infatti sono per un altro!
Riformulo la domanda:
Come posso scaricare da internet un file???
Ho provato con il seguente codice ma non mi scarica nulla!
codice:
....
If DownloadFile("http://definitions.symantec.com/defs/20090715-016-i32.exe", _
"c:") = False Then
MsgBox "Errore durante il download!", vbCritical
Else
MsgBox "Download completato con successo", vbInformation
End If
....
Public Function DownloadFile(URL As String, _
LocalFilename As String) As Boolean
Dim lngRetVal As Long
Application.Cursor = xlWait
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
Application.Cursor = xlDefault
If lngRetVal = 0 Then DownloadFile = True
End Function