三十年以前用过，好像当时把prg文件和dbf文件放在两个目录中。
用set path to命令规定调用prg和dbf的路径。很简练。
现在我想不起如何写了，在手册中也查不到。只好到这里找找高手，尤其时老人帮帮我。
非常感谢。恳请帮助。

set path to yourpath1，yourpath2 addi

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

多谢三楼wengj1老师的指导，不过我水平不够没有看懂，能否给我讲讲课。多谢

https://down.bccn.net/13079.html
我刚刚上传了汉化帮助文件，不懂的时候，多看看帮助文件，授人鱼，不如授人渔，本来是想直接在这里上传的，但是超过了5M，只能上传到下载频道

PUBLIC mypath
cCurrentProcedure = SYS(16)
mypath = JustPath(cCurrentProcedure)
SET DEFAULT TO (mypath)

无论这个PRG在哪个文件夹中，都是以这个PRG文件所在的目录 为默认目录

我还是说的再明白一些，一、我建了如下目录：
d:\S_thing
d:\S_thing\form
d:\S_thing\dbf
我的目的是：在d:\S_thing\main.prg中写一段代码，实现的目的是：
对于do form aa,程序默认aa在d:\S_thing\form\   中；
对于use bb,程序默认bb在d:\S_thing\dbf\中
二、目前我用的方法是：
开始就 cd d:\S_thing\form\
然后：cd form
do form aa
cd ..
cd dbf
use bb
cd ..
三、我这么做代码很繁琐。我记得上个世纪在prg中可以声明：对do ll.prg可以到特定的目录中执行；对use oo.dbf可以都某个目录中执行。
我记得好像是set语句，代码很简练，但想不起来了。我想问问这里的老人们，还记得吗？