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
non sò se sono stato chiarocodice: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![]()

, quello che invece volevo fare è quello di avviare il trasferimento in blocchi ad esempio 100kb
Rispondi quotando
