| 12
 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