Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Try
            Dim p As Process = Process.Start("Notepad.exe")
            Threading.Thread.Sleep(1000)
            MessageBox.Show("Die Datei liegt in " & _
              System.IO.Path.GetDirectoryName(p.MainModule.FileName))
        Catch ioex As System.ComponentModel.Win32Exception
            MessageBox.Show("Diese Datei gibt es nicht !")
        Catch ex As Exception
 
        End Try
    End Sub
End Class