文件个数解决思路

文件个数
请问，怎样写一个代码知道一个文件夹中有多少个文件类型为xls的文件个数？
------解决思路----------------------
set default to d:\xxx\yyy
if adir(aXls, '*.xls') > 0
   ? 'xls 文件个数：', alen(aXls, 1)
else
   ? 没有 'xls 文件'
endif

------解决思路----------------------

Create cursor XlsFiles (name V(50))



Set Default To (GetDir('', '请选择要查找 xls 文件的文件夹。', '查找', 65))

For ii = 1 to ADir(aXls, '*.xls', 'A', 1)

	Insert into XlsFiles (name) values (aXls[ii, 1])

EndFor

Browse