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)