System.Environment.CurrentDirectory;

//例: c:/test/

Application.ExecutablePath;(包括名称）

//例: c:/test/myapp.exe

Application.StartupPath;（不包括名称）

//例: c:/test/
上面的几个试了下都不行
下面的有效
Dim app As String = Assembly.GetAssembly(GetType(Ents.class1)).Location
Dim AssemPath As String = System.IO.Path.GetDirectoryName(app)