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
总之Adir()可以达到很多目的，具体使用请看查看帮助。
责任编辑：小草
