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