VFP编程技巧二则

由于工作的关系，笔者经常接触VFP，在VFP编程的过程中，笔者总结了一些经验和技巧，现介绍给大家，希望起到抛砖引玉的作用。 　　1.如何取得系统目录 　　nPath—ls=fullpath(′command.com′,2) 　　nPath=strtran(nPath—ls,′COMMAND.COM′,′′) 　　＆＆取得Windows\的目录名 　　nPath=strtran(nPath—ls,′COMMAND.COM′,′system\′) 　　＆＆取得Windows\system\的目录名 　　2.如何取得文件的修改日期、大小和属性 　　VFP为我们提供了一个非常强大的函数——Adir()，其语法为： 　　Adir(ArrayName [, cFileSkeleton [, cAttribute [, cCreatorType]]]) 　　使用： 　　X=Adir(Myml,′C:\TEMP\＊.DBF′) 　　返回： 　　X=符合cFileSkeleton条件的文件或目录个数 　　Myml是一个有五列内容的数组，这五列的含义是： 　　1 文件名 　 字符型 　　2 文件大小 数值型 　　3 文件日期 日期型 　　4 文件时间 字符型 　　5 文件属性 字符型 　　例：我们想得到某个文件的大小或文件的修改日期及属性： 　　X=Adir(Myml,′C:\TEMP\abc.DBF′) 　　IF X〈〉0 　　　 wjsize=Myml(1,2) ＆＆取得文件大小 　　　 wjdate=Myml(1,3) 　　＆＆取得修改日期及属性 　　　 wjAttr=Myml(1,5) ＆＆取得文件属性 　　ELSE 　　　 wait wind ′没有您指定的文件′ 　　ENDI 　　文件属性的含义： 　　A 档案文件(可读写) 　　H 隐藏文件 　　R 只读文件 　　S 系统文件 　　D 目录或文件夹 　　我们还可利用Adir()检查某个目录是否存在： 　　X=Adir(Myml,′C:\ABCDE′,′D′) 　　IF X=0 　　wait wind ′该目录不存在...′ 　　ENDI 　　当然用下面的更简单： 　　if ! file(′C:\ABCDE\nul′) 　　wait wind ′该目录不存在...′ 　　endi 　　摘自《赛迪网》　可俊/文