关于获得文件的当前路径,该如何解决

关于获得文件的当前路径
建立一个工程Project1.vbp
在该工程目录下有个文件result.txt
当读取该文件时
        Open   "lianjieganset.txt "   For   Input   As   #1

存在两种情况
（1）如果直接运行Project1.vbp程序正常

（2）如果先运行VB再以打开文件形式打开Project1.vbp则读取文件出现错误

调试发现第二种方式会以VB.exe所在目录为当前目录
我的是“C:\Program   Files\Microsoft   Visual   Studio\VB98\”
在这个目录下找不到result.txt文件因此出现错误。

怎么样能使第二种打开方式仍然能正确获得result.txt的目录

我试过以下几个函数，

（1）DWORD   GetCurrentDirectory(
DWORD   nBufferLength,   //接收目录的字符串的长度
LPTSTR   lpBuffer         //接收目录的字符串的地址
);
（2）GetModuleFileName
(ByVal   hModule   As   Long,     '需要查找文件名模块句柄
ByVal   lpFileName   As   String,   '//接收目录的字符串的地址
ByVal   nSize   As   Long   '//接收目录的字符串的长度
)

（3）GetFullPathName
(ByVal   lpFileName   As   String,   '包含文件名字符串的指针
ByVal   nBufferLength   As   Long,   '路径缓冲区大小
ByVal   lpBuffer   As   String,   '路径缓冲区的指针
ByVal   lpFilePart   As   String   '指向文件名在路径中的地址
)

结果获得的都是
“C:\Program   Files\Microsoft   Visual   Studio\VB98\”

不知道大家有没有好办法



------解决方案--------------------
app.path