Public Sub DownloadFile(ByVal link As String, ByVal ziel As String)
        Try
 
 
            ' Request erstellen
            Dim _FileRequest As WebRequest = System.Net.WebRequest.Create(link)
 
            ' Response speichern
            Dim _FileResponse As WebResponse = _FileRequest.GetResponse()
 
            ' Datenstream aus dem Respons extrahieren
            Dim _myStream As Stream = _FileResponse.GetResponseStream()
 
            ' Binärer "leser" zum Lesen des Streams
            Dim _myReader As New BinaryReader(_myStream)
 
            ' Datei speichern
            Dim _myFile As New FileStream(ziel, 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()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

 DownloadFile(txtlink.Text, Application.StartupPath)

(Visual Basic .net - Version 2008)

Beitrag wurde zuletzt am 22.11.09 um 11:50:44 editiert.