调用文件路径问题

s5193596

编了一组程序，需要调用安装文件夹下一级文件夹中的文件，请问如何写这个代码？

例如：安装路径是C:\RICH2010，我需要调用的文件是C:\RICH2010\BLOCK\SJ.TXT.

原先的语句是OPEN "C:\RICH2010\BLOCK\SJ.TXT" FOR OUTPUT AS #1

问题是程序发布后安装的路径不是固定的，也许是安装在C:\PROGRAMS FILES\RICH2010，

那样的话，，上面的语句就错了，该如何改呢？如何用“$installdir$”？请大侠们指教一二。

woaishuijia

app.path

s5193596

能不能详细说一说，或者就用上面的例子举例说明，谢谢

woaishuijia

App 对象
App 对象是通过关键字 App 访问的全局对象。它指定如下信息：应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称以及是否运行前一个应用程序的示例。
语法
App

 

App 对象的 Path 属性
当从开发环境运行该应用程序时 Path 指定 .VBP 工程文件的路径;当把应用程序当作一个可执行文件运行时 Path 指定 .exe 文件。
语法
pathname = App.Path

 

需要注意的是,当安装路径为分区根目录(比如D盘)时,App.Path返回的路径后面有"\",比如"D:\";当安装路径不是根目录时,App.Path返回的路径后面没有"\",比如"C:\PROGRAMS FILES\RICH2010".所以编程时,在得到可执行文件的路径后,应首先检查字符串的最后一个字符是否"\",如不是则添加,然后再在后面继续添加要操作的文件名称或子目录的路径等.

zzyong00

OPEN replace(app.path & "\BLOCK\SJ.TXT","\\","\") FOR OUTPUT AS #1

s5193596

 非常感谢楼上两位的回答，我很受启发。

adopt

不太懂，俺刚学VBA

s5193596

该问题已解决，其实只要判断本身程序的路径就行了，找的太辛苦了，不过也值。