Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Statusanzeige bei FTP Download
Autor: Lord_Vetinari
Datum: 22.03.11 22:40
Hallo Leute Ich fange grad an mich in den FTP download einzuarbeiten. Ich habe folgenden Code: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Const localFile As String = "x:\xxx\xxx.zip" Const remoteFile As String = "xxxx.zip" Const host As String = "ftp://xxxxx/" Dim username As String = "xxxxxxx" Dim password As String = "xxxxxx" Try web.Credentials = New NetworkCredential(username, password) web.DownloadFileAsync(New Uri(host & remoteFile), localFile) Catch ex As SystemException 'MessageBox.Show("Error: " & ex.Message, My.Application.Info.Title) End Try End Sub Private Sub web_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles web.DownloadProgressChanged Me.Text = e.ProgressPercentage & "%" ProgressBar1.Value = e.ProgressPercentage Label1.Text = (e.BytesReceived / 1024).ToString("0.##") & " KB von " & (e.TotalBytesToReceive / 1024).ToString("0.##") & " KB geladen" End Sub Private Sub DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles web.DownloadFileCompleted MsgBox("Download abgeschlossen!") web.Dispose() End Sub Der Download funktioniert ganz gut, bis auf die Progressbar. Der Prozentuale Wert in der Form wird mit 0 angezeigt. Erst wenn der Download abgeschlossen ist, läuft die Progresbar hoch. Hat jemand eine Idee woran das liegt? Ach ja, Dim Test As String Test = e.TotalBytesToReceive gibt -1 zurück. Klappt also auch nicht.

Statusanzeige bei FTP Download

1.454

Lord_Vetinari

22.03.11 22:40

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen