项目中如何获取当前目录

项目中怎么获取当前目录
因为要访问一个txt文本文件,就在编译后的exe当前目录下
    File1   =   "d:\ACS\ "   +form1.lstCityData.Text   +   ".txt "
    Open   File1   For   Input   As   #1
每次都手工修改那个路径太费劲.
想获取当前路径就好了.

[解决办法]
Chdir app.path（或者是任意完整路径，如“e:\mydata\data.txt”）
设置程序当前工作目录。
如果要对其他路径文件操作，务必要再次用此语句
[解决办法]
修改为：

File1 = app.path & "\ " & form1.lstCityData.Text & ".txt "
Open File1 For Input As #1

应该能满足你的要求！

[解决办法]
app.path
[解决办法]
File1 = iif(right(app.path,1)= "\ ",app.path,app.path & "\ ") & form1.lstCityData.Text & ".txt "
Open File1 For Input As #1

[解决办法]
app.path 相对路径,不过只能是放在程序的同一目录下才可以
[解决办法]
如果放在这个项目的目录下
使用
app.path