Private mError As New ErrorProvider ' kannste auch über den Designer einfügen
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'Eingaben überprüfen
        If Me.TextBox1.Text = Nothing Then
 
            mError.SetError(TextBox1, "Bitte wählen Sie eine datei aus")
            Exit Sub ' Wenn leer verlassen wir die sub
        Else
            ' hier sollte noch eine überprüfung auf einen gültigen Dateinamen 
            ' rein
            mError.Clear()
        End If
        If Me.TextBox2.Text = Nothing Then
 
            mError.SetError(TextBox2, "Bitte wählen Sie ein Zielverzeichnis")
            Exit Sub ' Wenn leer verlassen wir die sub
        Else
            ' hier überprüfung auf gültigen Pfad einfügen
            mError.Clear()
        End If
        ' hier nur Weiter im Coden wenn der Benutzer auf JA geklickt hat
 
        If MessageBox.Show("Wollen Sie Wirklich fortfahren?" & Chr(10) & Chr( _
          13) & "Der Prosess kann nicht mehr abgebrochen werden!", _
        "Bitte Beachten Sie!", MessageBoxButtons.YesNo, _
        MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, _
        MessageBoxOptions.DefaultDesktopOnly) = _
        System.Windows.Forms.DialogResult.Yes Then
            p.StartInfo.FileName = Me.winRarVerzeichnis.Text & _
            "\MeinProgramm.exe"
            PackPath = " e -kb """ & Me.TextBox1.Text & """ """ & _
            Me.TextBox2.Text & """"
            p.StartInfo.Arguments = PackPath
            p.StartInfo.UseShellExecute = False
            p.StartInfo.RedirectStandardOutput = True
            p.StartInfo.CreateNoWindow = True
            Dim sOutput As String
            p.Start()
        Else
            MessageBox.Show("na dann halt nicht", "Schade", _
              MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
 
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus