[VB6] Access: controllo da web

[Magicolotto]

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