Imports System Imports System.Windows.Forms Imports System.IO Public Class MainClass Shared Sub Main() Dim file_path As String = My.Computer.FileSystem.CombinePath(Application.StartupPath, "..\..") Console.WriteLine(file_path) End Sub End Class