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
C:\Java_Dev\WEB\dev