vfp 统计目录下有多少文件及目录

vfp 统计目录下有多少文件及目录

有现成的函数【Adir】可以读取文件和目录，以下是大概用法：

aa=adir(bb,'','D') && 只读取目录（注1）
aa=adir(bb) && 只读取文件
aa=adir(bb,'*.*','D') && 目录和文件（注1）
* 变量：aa=读取到的个数，数组bb(1,1)=第1个文件名，bb(2,1)=第2个文件名......
* 还有：bb(1,2)=第1个文件的大小......

注1：在读取目录的时候，如果不是在磁盘根目录，会连返回上一级目录的标识一起读出来。
即：会多出2个你不需要的，分别是【.】和【..】，这个问题你去查查手册【adir】的具体用法（我就不查了），或者编程去掉【.】和【..】

建立项目：cjtj.pjx 首先建立表(如果没有表的话)(这里省略) 1）新建立表单名为kpj 建立组合框combo1,用来输入课程名称,建立表格grid1用来显示该课程平均分；建立按纽command1,来统计。 combo1的dropdown代码： select kc &&&选择课程表 select kc from kc into cursor temp this.rowsource="temp" this.rowsourcetype=6 command1按纽代码： kcm=allt(thisform.combo1.displayvalue) &&取得组合框中的内容并存于变量kcm 我不知道你的表的结构字段内容，所以我的代码只作参考 .....