1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Public Sub DownloadFile(ByVal link As String, ByVal ziel As String)
' Request erstellen
Dim _FileRequest As System.Net.WebRequest = System.Net.WebRequest.Create(link)
' Response speichern
Dim _FileResponse As System.Net.WebResponse = _FileRequest.GetResponse()
' Datenstream aus dem Respons extrahieren
Dim _myStream As System.IO.Stream = _FileResponse.GetResponseStream()
' Binärer "leser" zum Lesen des Streams
Dim _myReader As New System.IO.BinaryReader(_myStream)
' Datei speichern
Dim _myFile As New System.IO.FileStream(ziel, System.IO.FileMode.Create)
' Dateigröße ermitteln
Dim size As Long = _FileResponse.ContentLength()
Dim i As Long
' Byte für Byte in die Datei übertragen
For i = 1 To size
_myFile.WriteByte(_myReader.ReadByte())
ProgressDownload.Value = ((i / size) * 100)
Next i
' Speicher leeren
_myFile.Flush()
' Speicher beenden
_myFile.Close()
End Sub |
Partager