Stimmt. Man könnte ja die beiden miteinpacken und dort ausführen.. Sehr gute Idee danke..
Wenn weiter was, meld ich mich ..
So.. Problem..
Wie entpackt man Dateien mit 7Zip ??
Bei dieser .chm steht das man diesen Command eingeben muss:
geht aber nicht ..
Ich habe meinen Code so momentan modifiziert:
Wenn weiter was, meld ich mich ..
So.. Problem..
Wie entpackt man Dateien mit 7Zip ??
Bei dieser .chm steht das man diesen Command eingeben muss:
geht aber nicht ..
Ich habe meinen Code so momentan modifiziert:
VB.NET-Quellcode
- Public Class Form1
- Private Sub StartBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartBtn.Click
- zauspacken()
- End Sub
- Sub zauspacken()
- Dim SevenZip As New System.Diagnostics.Process
- 'Pfad zur 7z.exe
- SevenZip.StartInfo.FileName = Application.StartupPath.ToString & "\7z.exe"
- 'Parameter für die 7z-Konsole
- SevenZip.StartInfo.Arguments = "e " & Application.StartupPath.ToString & "\test.zip"
- SevenZip.Start()
- 'Wartet bis 7-Zip fertig ist (=automat. geschlossen wurde)
- SevenZip.WaitForExit()
- 'ExitCodes von 7-Zip
- Select Case SevenZip.ExitCode
- Case 0 : MessageBox.Show("7-Zip: Erfolg")
- 'hier weitere Prozesse, z.B. Datei-Upload etc.
- Case 1 : MessageBox.Show("7-Zip: Warnung")
- Case 2 : MessageBox.Show("7-Zip: schwerer Fehler")
- Case 7 : MessageBox.Show("7-Zip: Command Line-Fehler")
- Case 8 : MessageBox.Show("7-Zip: Nicht genügend Speicher")
- Case 255 : MessageBox.Show("7-Zip: vom Benutzer abgebrochen")
- End Select
- End Sub
- End Class
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Krschy“ ()