vfp中怎么设置系统的Path路径（不是vfp的搜索文件路径）？

[pking2002]

谢谢了！！！

另外，哪位能提供比较好的vfp的论坛啊？

[hnpyz]

MyPath = LEFT( SYS( 16, 1 ), RAT( "\", SYS( 16, 1 ) ) )
SET DEFAULT TO ( MyPath )

[老猿的书房]

RUN PATH=<您的路径>
看其它高手有没有更好的办法

[aabiao]

http://www.myf1.net/bbs/list.asp?boardid=1

[流星尔]

cCurrentProcedure = sys(16,1)
nPathStart = at(":",cCurrentProcedure) - 1
nLenOfPath = rat("\", cCurrentProcedure) - (nPathStart)
curr_path=substr(cCurrentProcedure, nPathStart, nLenOfPath)
application.DefaultFilePath =curr_path
SET DEFAULT TO '"'+curr_path+'"'