首页 > 软件技巧 > 在VFP里怎样设置默认路径

在VFP里怎样设置默认路径

2012年5月4日
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

 

软件技巧 浏览314 次

本文的评论功能被关闭了.