volevo sapere se esiste un modo per effettuare un trasferimento di un file, da un server web, diciamo per interderci come i programmi di file sharing, praticamente ho un file nel mio web server da 2MG, se uso il codice qui descritto, il file arriverà a destinazione salvo imprevisti , quello che invece volevo fare è quello di avviare il trasferimento in blocchi ad esempio 100kb
il file è in formato zip
il server web è in http

codice:
Private Sub Cmdgetfile_Click()

   Dim b() As Byte
   Dim strURL As String
   strURL = "http://miowebserver/miapagina/" & ListView2.SelectedItem.Text
   b() = Inet2.OpenURL(strURL, icByteArray)
   Open App.Path & "\Download\" & ListView2.SelectedItem.Text For Binary Access Write As #1
   Put #1, , b()
   Close #1
   MsgBox "Il file è stato trasferito, da sua richiesta in: " & App.Path & "\Download\", vbInformation, "File trasferito"
   Inet2.Cancel
   
End Sub
non sò se sono stato chiaro