My.Computer.FileSystem.GetParentPath
public class Test public Shared Sub Main Dim start_dir As String = System.Windows.Forms.Application.StartupPath start_dir = My.Computer.FileSystem.GetParentPath(start_dir) Console.WriteLine(start_dir) End Sub End class