clear
vlen=ADIR(varr_file,'*.pdf')
IF vlen>0 THEN
FOR i=1 TO vlen
?"文件名:"+varr_file(i,1)+" / 大小:"+TRANSFORM(varr_file(i,2))+" / 最后修改日期:"+TRANSFORM(varr_file(i,3))+" / 最后修改时间:"+TRANSFORM(varr_file(i,4))
ENDFOR
ENDIF
这个adir函数把当前文件夹下指定的文件(比如pdf文件)信息存入一个二维数组(比如varr_file),这个数组的每一行中,第一列是文件名,第二列是大小,等等。见4楼的介绍。