ich hab ein Problem, und zwar das ich mir ein codesnippet für 7-Zip gedownloaded habe, aber es bei mir immer zu einem Schweren Fehler kommt.
hier der Code:
Code:
Public Class Form1
Public Filename As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ofd As New System.Windows.Forms.OpenFileDialog
Ofd.InitialDirectory = "C:\"
If Ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
Filename = Ofd.FileName
End If
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim SevenZip As New System.Diagnostics.Process
'Pfad zur 7z.exe
SevenZip.StartInfo.FileName = "C://Programme/7-Zip/7z.exe"
'Parameter für die 7z-Konsole
SevenZip.StartInfo.Arguments = "e " & Filename & "-oc://mcmodtmp"
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
hoffe ihr könnt mir helfen.
