在VFP里怎样设置默认路径

foxpro 当前目录

foxpro 当前目录

今天想设置foxpro的默认工作目录

可是发现个问题:就是你要取得当前表单form的工作目录

在网上找了好多都没有什么用处

最后还是自己动手丰衣足食

写下来以备后用

首先取得表单的目录并保存到变量curpath中

public  cCurrent ,nPathStart ,nLenOfPath  ,curpath
cCurrent   =   SYS(16,1)
nPathStart   =   AT( “:”,cCurrent)-   1
nLenOfPath   =   RAT( “\”,cCurrent)   –   (nPathStart)
curpath=SUBSTR(cCurrent,   nPathStart,   nLenofPath)

设置默认工作目录
SET   DEFA   TO   &curpath

 

 » 本站地址:http://www.gomoth.com

标签: