Question

vfp 中 set default to 怎么用?

Answer 1

关于设置相对路径，以下供参考：
*设置默认路径可用以下三种方法：
*方法一：
**********************
PUBLIC LCNowpath
LCNowpath=SYS(5)+SYS(2003)+"\"
set default to "&LCNowpath" &&设置默认工作目录
**********************

*方法二：
**********************
PUBLIC LCSys16,LCNowpath
LCSys16=SYS(16) &&获取当前程序所在的全路径，包括当前运行程序名。
LCNowpath=LEFT(LCsys16,RAT("\",LCSys16,1)) &&获取当前运行程序所在工作目录。
set default to "&LCNowpath" &&设置默认工作目录
**********************

*方法三：（指定程序名）
**********************
PUBLIC LCNowpath
prgname="你的程序名.exe"
prglen=len(prgname)
allname=allt(sys(16))
alllen=len(allname)
LCNowpath=substr(allname,1,alllen-prglen)
set default to "&LCNowpath" &&设置默认工作目录
**********************

--------------------------------------------------------------------
除了上面的SET DEFAULT TO "&lcprogram" 这种方式外，还有一种方式是使用名称表达式：
SET DEFAULT TO (lcprogram)

Answer 2

set defa to c:\temp
set defa to d:\mydir\ttt