Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

 Private WithEvents SevenZip As System.Diagnostics.Process
Sub StartePro
 SevenZip = New System.Diagnostics.Process
 SevenZip.EnableRaisingEvents = True
 SevenZip.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
End Sub
Private Sub SevenZip_Exited(ByVal sender As Object, ByVal e As System.EventArgs) Handles SevenZip.Exited
        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

Visual Basic Quellcode

Dim weltname1 As String
	Dim weltname2 As String
	Dim appdata_new As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
	Dim appdata As String = appdata_new & "\" & ".minecraft" & "\" & "saves"
	Dim SevenZip As New System.Diagnostics.Process
	Dim exe_pfad As String

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    weltname1 = "a " & appdata & "\" & "new.zip " & appdata & "\" & weltname2

    SevenZip.StartInfo.FileName = exe_pfad
    'Parameter für die 7z-Konsole
    SevenZip.StartInfo.Arguments = weltname1
    SevenZip.Start()
    'Wartet bis 7-Zip fertig ist (=automat. geschlossen wurde)
    SevenZip.WaitForExit()
    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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    'Name Check
    If TextBox2.Text = "" Then
        PictureBox1.Visible = True
    Else
        weltname2 = TextBox2.Text
        'Zip Vorgang starten
        BackgroundWorker1.RunWorkerAsync()
    End If
End Sub

Visual Basic Quellcode

SevenZip.StartInfo.Arguments = String.Format("a {0}{1}{0} {0}{2}{0} {0}{3}{0}","""", targetFile, firstFile, secondFile)