Ciao a tutti,

il codice seguente esegue il download dalla rete di un file (ho preso un esempio)
in maniera automatica:

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 Command1_Click()
url = "http://www.vb2themax.com/vbmaximizer/files/vbm_demo.zip"
localFileName = "c:\vbm_demo.zip"

errcode = URLDownloadToFile(0, url, localFileName, 0, 0)

End Sub

Vorrei poter utilizzare la stessa routine integrandola in una pagina web.
In pratica se l'utente esegue un'azione all'interno della pagina la routine
viene eseguita. Che soluzione mi consigliate?

Grazie mille