如system文件夹下有datas、forms、bmp、rept文件夹，我在写程序的时候要访问datas目录下的一个查询1.QPR，请教这个访问的代码要怎么写，路径要怎么表示？
我用do datas\1.QPR会提示找不到路径

[ 本帖最后由 race13 于 2014-2-26 14:40 编辑 ]

自己搜索下

cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
SET Default TO (mypath)

在主程序中有这几句，EXE文件系统所在目录可以是任意一个地方的

[ 本帖最后由 wengjl 于 2014-2-27 13:51 编辑 ]

如果你写的主程序放在system文件夹下：
SET PATH TO SYS(5)+SYS(2003),datas\,forms\,bmp\,rept\
do 1.QPR

把應用數據置入系統文件夾中，是最犯忌的做法，教他幹什麽。寫程序如果不是祇有自己用的，不要想當然客戶機上也有這種目錄，到時找也找不到，但在自己的開發機上又看不出問題，這不是自找麻煩是什麽。

楼上所言极是。本只是想做示例，看来有可能误导。
楼主所编的程序应该有一个自己的文件夹，主程序放在这个文件夹下，下面可以建一些子文件夹。
在主程序的开始（或主表单的Load事件中）键入代码：
SET PATH TO SYS(5)+SYS(2003),datas\,forms\,bmp\,rept\
然后就可以随时：do 1.QPR