DownLoadFile

Public Sub DownloadBinaryFile(strSourceFile As String, strDestinationFile As String)
'Parametri input:

'strSourceFile: URL del file completo del nome

(es."www.miosito.xxx\zippato.zip")
'Parametri output

'strDestinationFile : Percorso e nome del file da salvare

Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = icDownload.OpenURL(strSourceFile, icByteArray)
IntNumberFile = FreeFile
Open strDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile
End Sub Se si vuole scaricare un file binario da Internet, e’
possibile farlo utilizzando il controllo
‘Internet Transfer Control’.
Ecco una piccola routine che scarica e salva un file binario: