错了,应该是 set path to c:if file(temp.*)&&temp是一个文件夹,用来确定我要的目录在有 && temp文件夹的路径下 mypath='c:\temp\' else set path to d: if file(temp.*) mypath='d:\temp\' ... endif endifliu7537(一飞):我用(temp),也不行呀! 帮帮我!
简单的方法来了。:) if .not. directory("d:\temp")&&判断d:\temp目录是否存在,不存在的话,建立该文件夹 cd d: md temp cd temp else &&如果该目录已存在,则设置该目录为默认目录。 set defa to d:\temp endif 代码已经过测试。你可以按照你自己的想法改变代码。记得给分哦。 靠判断文件是否存在,来判断目录是不行的。文件不存在,目录仍然可以有。
set path to c:if file(temp.*)&&temp是一个文件夹,用来确定我要的目录在有
&& temp文件夹的路径下
mypath='c:\temp\'
else
set path to d: if file(temp.*)
mypath='d:\temp\'
...
endif
endifliu7537(一飞):我用(temp),也不行呀!
帮帮我!
然后在file函数中省名文件的完整名称。如:
file("c:\temp\ls.dbf"),
这样该函数才能返回.t.或者.f.
sys(2023)
这个函数返回的就是windows的临时目录名称,在我的机器上返回的结果是:
C:\WINDOWS\TEMP
还有,SYS(2003)返回当前的目录名称。其它的SYS()函数用法你可以参考vfp的帮助。
if .not. directory("d:\temp")&&判断d:\temp目录是否存在,不存在的话,建立该文件夹
cd d: md temp
cd temp
else &&如果该目录已存在,则设置该目录为默认目录。
set defa to d:\temp
endif
代码已经过测试。你可以按照你自己的想法改变代码。记得给分哦。
靠判断文件是否存在,来判断目录是不行的。文件不存在,目录仍然可以有。
不好意思!