Foxpro主程序中路径设置技巧

　　有时候编写了一个系统，需要设置一些环境。其中，常用到set defa to和set path to命令。为了使得系统每一次运行自动配置环境路径，我采用了一下的代码：
　　if version(2) = 0 &&如果是运行版，就是编译后的exe模式
　　 lcDefa = addbs(sys(5) + curdir()) &&获取当前路径
　　else
　　 lcDefa = addbs(justpath(justpath(sys(16)))) //获取main.peg所在的路径进行处理
　　endif
　　set defa to (lcDefa)
　　lcPath = lcDefa + ";" + lcDefa + "data;" + lcDefa + "prg;" + lcDefa + "form;" + lcDefa + "cls;" + lcDefa + "frx;"
　　set path to (lcPath)
　　这样，就算把程序拷贝到其他地方也不用改路径设置了。