先建一个你需要的文件夹,比如
MD :\AAA
然后再输入
set defa to d:\AAA
(大小写无所谓)
set default to 路径
set path to 路径
在主程序加上如下代码:
cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))