vfp 中 set default to 怎么用?

来源:百度知道 编辑:UC知道 时间:2024/09/24 01:53:02

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

关于设置相对路径,以下供参考:
*设置默认路径可用以下三种方法:
*方法一:
**********************
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" &&设置默认工作目录
**********************

------------------------------------------------------