Vfp为我们提供了一个非常强大函数ADIR(), - 达人(在海水中游泳)

2006/09/14 | Vfp为我们提供了一个非常强大函数ADIR(),
类别(语言类学习笔记) | 评论(0) | 阅读(1660) | 发表于 08:50: 如何取得某个文件的大小、修改日期及属性2006年08月17日星期四上午 11:50如何取得某个文件的大小、修改日期及属性
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()可以达到很多目的，具体使用请看查看帮助; 0