Public Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long


Private Sub Command1_Click()
Dim errcode As Long
Dim url As String, localFileName As String

url = "http://andrew4.altervista.org/update/worldbarre.exe"
localFileName = "c:\worldbarre.exe"

errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
MsgBox "download completato" 'Download ok
Else
MsgBox "download non completo" 'Errore downloading
End If
End Sub



Io ho scritto questo codice però non funziona, mi dice download completato ma niente.