hi,
hätte da mal ein Problem bei dem Ich nicht weiterkomme. Ich hab im unteren Code einen Async http Download mit Progress-bar. Es soll erst nach diesem Download weitergemacht werden mit dem Skript. Das bekomme Ich zwar hin aber es wird ein Teil übersprungen. Wen Ich das Skript ohne den Download ausführe geht alles ganz normal durch. Wie mache Ich VB denn klar, das es erst nach dem Download in geordneter Reihenfolge weitergeht?
Es wird also nachdem der DL fertig ist, der komplette Teil mit 7zip übersprungen. (Das Löschen der zwei Pfade wird noch gemacht). Ich hab da echt nicht soviel plan von wie Ich das machen muss...
hätte da mal ein Problem bei dem Ich nicht weiterkomme. Ich hab im unteren Code einen Async http Download mit Progress-bar. Es soll erst nach diesem Download weitergemacht werden mit dem Skript. Das bekomme Ich zwar hin aber es wird ein Teil übersprungen. Wen Ich das Skript ohne den Download ausführe geht alles ganz normal durch. Wie mache Ich VB denn klar, das es erst nach dem Download in geordneter Reihenfolge weitergeht?
Es wird also nachdem der DL fertig ist, der komplette Teil mit 7zip übersprungen. (Das Löschen der zwei Pfade wird noch gemacht). Ich hab da echt nicht soviel plan von wie Ich das machen muss...
Quellcode
- Imports System.Net
- Imports System.Net.Mail
- Imports System.IO
- Imports System.Environment
- Imports System.Diagnostics
- Public Class Form1
- Dim WithEvents myWebClient As New WebClient
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Me.Text = "Download wird gestartet..."
- ProgressBar1.Visible = True
- Button1.Visible = False
- myWebClient.DownloadFileAsync(New Uri("http://XXX.7z"), "C:\XXX.7z")
- End Sub
- Private Sub myWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles myWebClient.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 myWebClient.DownloadFileCompleted
- myWebClient.Dispose()
- 'Loescht die alten Daten'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- My.Computer.FileSystem.DeleteDirectory("C:\x\x",
- FileIO.DeleteDirectoryOption.DeleteAllContents)
- My.Computer.FileSystem.DeleteDirectory("C:\x\xx",
- FileIO.DeleteDirectoryOption.DeleteAllContents)
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- 'Entpackt das Update und kopiert Datenbank
- Dim SevenZip As New System.Diagnostics.Process
- SevenZip.StartInfo.FileName = "C:\7z.exe"
- SevenZip.StartInfo.Arguments = "x C:\xxx.7z -oc:x -p!!!!! -y"
- SevenZip.Start()
- SevenZip.WaitForExit()
- Select Case SevenZip.ExitCode
- Case 0 : MessageBox.Show("Update has been installed successfully!")
- Case 1 : MessageBox.Show("7-Zip: Error")
- Case 2 : MessageBox.Show("7-Zip: Error")
- Case 7 : MessageBox.Show("7-Zip: Command Line-Error")
- Case 8 : MessageBox.Show("7-Zip: Not enough space")
- Case 255 : MessageBox.Show("7-Zip: User abort")
- End Select
- 'Kopiert alte DB nach X
- System.IO.File.Copy("C:\sd-sicherung\x\db\x", "C:\x\x\db\x")
- Button1.Visible = False
