在VFP8.0中，怎么通过编程求出某一文件夹所含有文件数与各文件的文件名

在VFP8.0中，如何通过编程求出某一文件夹所含有文件数与各文件的文件名？
在VFP8.0中，如何通过编程求出电脑中某一文件夹所含有文件数与各文件的文件名？
设电脑D盘中有一个文件夹“商品管理文件”，文件夹里有各种文件若干，现在要求通过编程求出：
1、该文件夹内有多少个文件(用n表示)？
2、求出该文件夹中各文件的文件名（包括扩展名），用数组WJM（n）来表示各文件名（其中n是文件数）。
敬向电脑专家请教，不胜感激！


[解决办法]
c原路径 = sys(5)+curdir()
c查找路径 = 'c:\商品管理文件'
set default to (c查找路径)
n文件数 = adir(aFiles, '*.*')
set default to (c原路径)

? '文件夹: ' + c查找路径 + ' 下文件'
? '-----------'
for ii = 1 to alen(aFiles,1)
? aFiles[ii,1]
endfor
? '-----------'
? '总文件数:', n文件数

[解决办法]
你看一下 vfp 自带帮助文件中的 ADIR( ) 函数，而且还有例子。
[解决办法]

SQL code

原路径=SYS(5)+CURDIR()查找路径="D:\商品管理文件"SET DEFAULT TO (查找路径)CREATE CURSOR TABNAME (文件名 C(20),文件大小 N(10),修改日期 D,修改时间 C(10),文件属性 C(10))FOR I = 1 TO ADIR(AFILES,"*.*")    INSERT INTO TABNAME VALUES (AFILES(I,1),AFILES(I,2),AFILES(I,3),AFILES(I,4),AFILES(I,5))ENDFORBROWSE TITLE "文件夹 "+查找路径+" 下的文件共 "+TRANSFORM(ADIR(AFILES,"*.*"))+" 个"SET DEFAULT TO (原路径)
[解决办法]
既然你用 MyFll，那就用 MyFll 中的 FtpAFile() 函数

函数名：FtpAFile(hFtp,cArrayName)
缩写：ftpa
枚举Ftp当前路径下的所有文件和文件夹
返回值：
整型，文件（包含文件夹）的个数。  
参数：
hFtp：由FtpConnect()返回的句柄  
cArrayName：字符型，要创建的数组名字。
此数组结构等同于VFP的ADir()函数生成的数组：

1-文件名
2-文件大小
3-最后修改日期
4-最后修改时间
5-文件属性，共5字节，如果包含"D"，则这是一个文件夹，具体请参阅VFP帮助中的ADir()函数  
示例代码
Set Library To myfll
hFtp=FtpConnect("218.90.232.15","ABCDE","12345",21)
If hFtp==""
   MessageBox("无法连接ftp服务器")
   Return  
EndIf  
?"将当前文件夹里的所有文件读取到数组：",FtpAFile(hFtp,"aFtpFiles")
Display Memory like aFtpFiles

FtpDisconnect(hFtp)


[解决办法]
<木瓜的MyFll.fll(1.182.10.526)及说明>
http://download.csdn.net/source/2505656
[解决办法]
还用 FtpAFile() 函数
取得文件后，再看一下取得的文件中有没有你要的文件。