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: