Hi,
ich habe schon einmal einen Code verwendet um eine .exe Datei von meinem 1&1 Server zu downloaden. Nun habe ich diesen verwendet um eine .zip Datei zu downloaden.
Der Download finktioniert nun gut und ohne fehler aber die Progressbar und das Label die den Fortschritt anzeigen sollen reagierne nun erst nach beendigung des Downloads.
Ich kann trotz 3 Tägiger Google Suche den Fehler nicht finden und bin wirklich verzweifelt. Bitte helft mir.
Code
Mit einer .exe Datei hat alles vorher super funktioniert.
Bestimmt habe ich einen ganz doofen Fehler gemacht.
Für jede Hilfe bin ich sehr sehr Dankbar!!!
ich habe schon einmal einen Code verwendet um eine .exe Datei von meinem 1&1 Server zu downloaden. Nun habe ich diesen verwendet um eine .zip Datei zu downloaden.
Der Download finktioniert nun gut und ohne fehler aber die Progressbar und das Label die den Fortschritt anzeigen sollen reagierne nun erst nach beendigung des Downloads.
Ich kann trotz 3 Tägiger Google Suche den Fehler nicht finden und bin wirklich verzweifelt. Bitte helft mir.
Code
VB.NET-Quellcode
- Imports Microsoft.Win32
- Imports System.Net
- Imports System.IO
- Imports System.IO.Compression
- Imports Ionic.Zip
- Public Class Form1
- Dim WithEvents WC As New WebClient
- Public str_desktop As String = My.Computer.FileSystem.SpecialDirectories.Desktop
- Public str_version As String = WC.DownloadString("http://###/version.txt")
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- txt_status.Text = "Bereit Version " & str_version & " zu installieren"
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- Me.Close()
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- If IO.File.Exists(str_desktop & "\***.exe") Then
- IO.File.Delete(str_desktop & "\****.exe")
- ListBox1.Items.Add("Alte Datei gelöscht ... ")
- ListBox1.Items.Add("Download Update gestartet ... ")
- WC.DownloadFileAsync(New Uri("http://###/_update_" & str_version & ".zip"), str_desktop & "\_" & str_version & ".zip")
- Else
- MsgBox("*** nicht auf Desktop gefunden!" & vbCrLf & "Bitte ### informieren", MsgBoxStyle.Critical, "Fehler")
- Me.Close()
- Exit Sub
- End If
- End Sub
- Private Sub WC_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles WC.DownloadFileCompleted
- zip_entpacken()
- End Sub
- Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
- 'ProgressBar1.Maximum = e.TotalBytesToReceive
- ListBox1.Items.Add("Download läuft ... ")
- ProgressBar1.Value = e.ProgressPercentage
- txt_status.Text = (e.BytesReceived / 1000000).ToString("N2") & " MB / " & (e.TotalBytesToReceive / 1000000).ToString("N2") & " MB"
- End Sub
- Private Sub zip_entpacken()
- Using zip As ZipFile = ZipFile.Read(str_desktop & "\***_update_" & str_version & ".zip")
- ListBox1.Items.Add("Entpacke Update Datei ... ")
- zip.ExtractAll(str_desktop, ExtractExistingFileAction.OverwriteSilently)
- Threading.Thread.EndCriticalRegion()
- System.IO.File.Delete(str_desktop & "\_update_" & str_version & ".zip")
- End Using
- MsgBox("Update erfolgreich abgeschlossen", vbInformation, "Update V " & str_version)
- ' Me.Close()
- End Sub
Mit einer .exe Datei hat alles vorher super funktioniert.
Bestimmt habe ich einen ganz doofen Fehler gemacht.
Für jede Hilfe bin ich sehr sehr Dankbar!!!
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „AbsolutCF“ ()