SET DEFAULT 命令
设置隐含的驱动器及目录。
设置了隐含的路径，我们可以在程序运行打开每个隐含路径下的文件时不用再指定路径了。
语法
SET DEFAULT TO [路径]
参数说明
路径：可以是符合操作系统要求的任何路径，比如：
set default to d:\soft\rsgl
set default to \
set default to ..
|
注意 |
如果路径中带有空格，必须用引号将路径括起来，否则会出错。比如：
set default to "d:\soft\rsgl 佳帆" |
示例
当我们的程序在运行时，一般我们都需要知道该程序运行所在的目录，因为往往许多数据也是放在这个目录下，我们不能指定一个绝对的路径，因为程序编好后可能拿到另一台电脑上用，其路径可能发生变化，一旦变化便找不到所需要的数据文件了，因此我们必须有一种方法获取其当前所在的路径，有一种办法是这样：
cxlj=sys(5)+sys(2003)+'\'
这在程序编译成独立 EXE 文件时运行是对的，但在 VFP 系统中运行 PRG 程序却不对，它返回的是 VFP 所在的目录，为了解决这个问题，可采用如下程序：
| CXLJ=SYS(16) &&获取当前运行的程序名及其所在路径 FOR JSQ=1 TO LEN(CXLJ) &&用一个循环找出最右边一个反斜线，将其后的程序名去掉，只剩路径 CXZF=LEFT(RIGHT(CXLJ,JSQ),1) &&从 CXLJ 的右边依次取出每个字符 IF CXZF='\' &&查看这个字符是不是反斜线 CXLJ=STUFF(CXLJ,LEN(CXLJ)-JSQ+1,JSQ,'') &&如果是，就将反斜线之后的字符全删掉并退出循环 EXIT ENDIF ENDFOR SET DEFAULT TO "&CXLJ" &&用宏替换设置隐含路径，用引号是为了带空格的路径也能正确设置 |
评论