如何取得运行的程序的所在目录？

[beerfroth]

如何取得运行程序所在的目录？
不是指那个vfp系统的默认目录。
谢谢

[十豆三]

prgname="你的程序.exe"
prglen=len(prgname)
allname=allt(sys(16))
alllen=len(allname)
pathname=substr(allname,1,alllen-prglen)
nowpath=pathname
set defa to &nowpath

你把上面代码放在主程序的中，这样你运行“你的程序.exe”时，自动将默认路径设为“你的程序.exe”所在的文件夹

[beerfroth]

可是程序名有可能会随时更改的啊，但是程序不改啊。
有没有什么办法可以更加灵活一点？

[十豆三]

你建一个表，用其中一个字段的值来覆值给prgname，如果你的文件名变了，那只需改一下这个表中的字段值就可以了。具体是手工改，还是做一个设置程序，由你来定。

[river_sea]

程序名多不会随时改、仅仅使用路径不同。如此、可用相对目录、以后可以用apple的方法了。

[xclzteb]

楼上已经足够了。

[beerfroth]

谢谢，经过试验，结合了其他的一些方法，已经实现了。