System.Environment.CurrentDirectory
创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站设计制作、成都做网站、夏河网络推广、小程序制作、夏河网络营销、夏河企业策划、夏河品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供夏河建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com
这才是vb.net的获取程序运行路径的方法
1、如果你的窗体就是你当前工程这个EXE本身的窗体，
那么窗体所在的路径就是工程的启动路径，用下面的语句获取：
AppPath=Application.StartupPath
2、如果你的窗体是你自己LoadLibrary的某个DLL的窗体，那么你既然能LoadLibrary，就应该知道它的路径，所以不用问了。
一种采用绝对路径比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"
第二种采用当前exe所在路径
"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"
见上图，用鼠标按照上述三个步骤先后次序，一一单击进行选择和设置，“生成输出路径”。
那么，在你的程序代码里使用：
MsgBox(Application.StartupPath)
显示的就是，你的当前默认的相对路径。
也可以按照自己的需要重新设置该路径。
如果一名开发者希望在代码中使用相对路径而非绝对路径 那么设定当前工作路径的能力迟早会派上用场 在本教程中 我说明如何用 VB NET 设定当前工作路径
在代码中 由于相对路径可以简化代码 它一般成为我们的首选路径 但是 解释相对与当前工作目录有关 因此 将当前工作目录修改到一个需要的位置允许开发者在代码中使用相对路径
为了确定当前工作路径 我使用 Directory 对象的 GetCurrentDirectory 方法 同时 为修改当前工作路径 我应用 Directory 对象的 SetCurrentDirectory 方法 此外 您可以利用 Path 对象的 GetFullPath 方法 它允许您把使用当前工作路径的一个相对路径转换成绝对路径
实例
在表格中增加一个列表框（ listbox ）控件 listbox 并在 列表 A 中添加代码 运行代码时 结果 如图 所示
在此例中 我首先显示一个当前工作目录（利用 Directory 类的 GetCurrentDirectory 方法） 然后我用 GetFullPath 方法向它提交一个文件名（在本例中为 text txt ） 这两个行为的结果被逐条添加到列表框 Listbox 中
lishixinzhi/Article/program/net/201311/12881