codice:
Private 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
Dim errcode As Long
Dim url As String
Dim localFileName As String
Private Sub Download_Click()
url = "http://prcorso sull web"
localFileName = "C:\percordo di salvataggio"
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
MsgBox "Download ok"
Else
MsgBox "Errore durante il trasferimento Riprova più tardi"
End If
End Sub