Dim p As Process = Process.Start("E:\test\import_fibu_neu.bat")
        p.WaitForExit()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim p As Process = Process.Start("E:\test\import_fibu_neu.bat")
        p.EnableRaisingEvents = True
        AddHandler p.Exited, AddressOf p_Exited
    End Sub
 
    Private Sub p_Exited(ByVal sender As Object, ByVal e As System.EventArgs)
        MessageBox.Show("Der Prozess wurde beendet!")
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co