Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Console.WriteLine(Application.ProductName()) Dim sPath As String = Application.ExecutablePath() Console.WriteLine(sPath) Dim sDir As String = System.IO.Path.GetDirectoryName(sPath) Console.WriteLine(sDir) End Sub