Imports System.IO '引用命名空间
创新互联长期为上千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为乌拉特中企业提供专业的网站建设、做网站，乌拉特中网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
Dim AppPath As String = Directory.GetCurrentDirectory() '获取应用程序的当前工作目录
Process.Start(AppPath) '打开当前目录
这个就是你要的了！希望你能用！
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AppPath As String = Directory.GetCurrentDirectory() '获取应用程序的当前工作目录
Process.Start(AppPath) '打开当前目录
End Sub
忘了说，这个要引用命名空间！
把Imports System.IO 写到代码最上边就好了！
VS2005为例：
我的文档--Visual Studio 2005----Projects
在这面找到你的项目，打开项目文件夹，再打开项目文件夹，以WindowsApplication1为项目名为例：
我的文档\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1
见上图，用鼠标按照上述三个步骤先后次序，一一单击进行选择和设置，“生成输出路径”。
那么，在你的程序代码里使用：
MsgBox(Application.StartupPath)
显示的就是，你的当前默认的相对路径。
也可以按照自己的需要重新设置该路径。