怎样遍历一个目录,取得目录下所有的文件名？
---------------------------------------------------------------
gnDbcnumber = ADIR(gadbf,'.') && 创建一个数组
CLEAR
FOR nCount = 1 TO gnDbcnumber && 遍历所有文件
?gadbf(nCount,1)
ENDFOR
gnDbcnumber = ADIR(gadbf,'*.dbf') && 创建一个数组
CLEAR
FOR nCount = 1 TO gnDbcnumber && 遍历所有文件中扩展名为.dbf的文件
?gadbf(nCount,1)
ENDFOR