论坛apple_8180 关于运用adir()历遍文件夹得到指定类型的文件，数量过大时，会出错

论坛apple_8180 关于使用adir()历遍文件夹得到指定类型的文件，数量过大时，会出错
本帖最后由 apple_8180 于 2012-07-30 13:03:31 编辑 原贴在这里：
http://topic.csdn.net/u/20090104/17/44a67045-00c2-4a9a-ab98-e7f388fa803d.html
我小改了一下：
昨天和今天测试中，当一个文件夹下面的jpg文件超过13600左右就会出错，我用的是VFP7
1、不知道有没有办法改为无限大，或者大于十万条。
2、这程序能否同时搜索多个文件类型，如：*.jpg,*.bmp,*.mpg....
3、能否把这程序改为只搜索指定的文件夹，不包括子文件夹，或者做一个选项，只扫描指定文件夹，而不包括子文件夹或包括子文件夹都扫描

Create table mylsdbf (wjmc c(120),path c(100),filename c(50))&&创建一个表，把扫描到的文件保存到这个表里面
 Declare aFiles[1] 
 For lnI=67 To 90&&从C盘循环至Z盘 
 If Drivetype(Chr(lnI))>2&& or Drivetype(Chr(lnI))=6 &&硬盘 
 nFoundCount = FindFiles(Chr(lnI)+":","*.jpg", @aFiles) &&通过程序查找
 For lnJ=1 To nFoundCount &&在指定目录下找到的文件数量
 inse into mylsdbf(wjmc,filename,path) value (aFiles(1,lnJ),"",""))))))&&在表里增加一行记录
 Endfor 
 Endif 
 Endfor 

 *--以下为 Foxer 大侠提供的“支持通配符的文件匹配查找的程序”，在此表示感谢。 
 Function FindFiles 
 Lparameters cPath, cFindFile, aFindFiles 
 External Array aFindFiles 
 If Empty(cPath) Or Empty(cFindFile) 
 Return "" 
 Endif 
 cFindFile = Alltrim(Upper(cFindFile)) 
 If Diskspace(cPath)  < 0 && 不存在 
 Return "" 
 Endif 
 Declare aFindFiles[1] 
 nFoundCount = FileLocate(cPath, cFindFile, @aFindFiles) 
 Return nFoundCount 
 Endfunc 
 Function FileLocate 
 Lparameters cPath, cFindFile, aFindFiles 
 Private All 
 External Array aFindFiles 
  
 nFoundCount = 0 
 Local Array aFiles[1] 
 Local Array aMatchFiles[1] 
 nFiles = Adir(aFiles, Addbs(cPath) + "*.*","DRASH", 1) 
 nMatchFiles = Adir(aMatchFiles, Addbs(cPath) + cFindFile,"DRASH", 1) 
  
 If nMatchFiles> 0 
 For i = 1 To nMatchFiles 
 If Not (aMatchFiles[i,1] = "." Or aMatchFiles[i,1] = "..") 
 If "D" $ aMatchFiles[i,5] && 目录 
 Loop 
 Endif 
 nFoundCount = nFoundCount + 1 
 Declare aFindFiles[nFoundCount] 
 aFindFiles[nFoundCount] = Addbs(cPath) + aMatchFiles[i,1] 
 Endif 
 Endfor 
 Endif 
  
 If nFiles > 0 
 For i = 1 To nFiles 
 If aFiles[i,1] = "." Or aFiles[i,1] = ".." 
 Loop 
 Endif 
 If "D" $aFiles[i,5] && 目录 
 Local Array aSubFoundFiles[1] 
 nSubFoundCount = FileLocate(Addbs(cPath) + aFiles[i,1], cFindFile, @aSubFoundFiles) 
 If nSubFoundCount > 0 && 找到了 
 For j = 1 To nSubFoundCount 
 nFoundCount = nFoundCount + 1 

 Declare aFindFiles[nFoundCount] 
 aFindFiles[nFoundCount] = aSubFoundFiles[j] 
 Endfor 
 Endif 
 Endif 
 Endfor 
 Endif 
  
 Return nFoundCount 
 Endfunc

[解决办法]
VFP自带的Filer.dll

Clear
oMyFiler=Createobject('Filer.FileUtil')
oMyFiler.SearchPath='C:\要搜索的目录'
oMyFiler.SubFolder=0&& 0不搜索子文件夹，1搜索指定的文件夹及其所有的子文件夹
oMyFiler.FileExpression='*.exe;*.wav;*.txt'&& 搜索 exe 和 wav 文件
oMyFiler.Find(0)
For nFileCount=1 To oMyFiler.Files.Count
? oMyFiler.Files.Item(nFileCount).Path&& 显示文件的完整路径
?? oMyFiler.Files.Item(nFileCount).Name&& 显示文件的名称
Endfor