这是学习了网上的遍历硬盘查询文件或文件夹的程序，修改的结果。就是运行速度太慢了，请各位大神给修改成纯数组操作，不用数据表（游标），可能会快一点。

scanfile('d:','lkysics2018.exe','A','lkysics','D')

Parameter dqml,scanobj1,scanobj1type,scanobj2,scanobj2type
dqml=upper(alltrim(dqml))
scanobj1=upper(alltrim(scanobj1))
scanobj1type=upper(alltrim(scanobj1type))
scanobj2=upper(alltrim(scanobj2))
scanobj2type=upper(alltrim(scanobj2type))
oldsec=SECONDS( )
valoldsec=oldsec
? ''
? dqml
? scanobj1
? scanobj1type
? scanobj2
? scanobj2type
? '准备工作开始...'
Close Table All
Create Cursor mylsdbf (wjmc C(254),wjcd N(20),wjrq D,wjshj C(10),wjsx C(6))
Append Blank
Replace wjmc With dqml
Do While !Eof()
   nRecn=Recno()
   dqml=Alltrim(wjmc)+'\'
   x=Adir(Mysz,(dqml+'*.*'),'rashd')
   If x <> 0
      For I=3 To x
          Mysz(I,1)=dqml+Mysz(I,1)
      Endfor
      Append From Array Mysz For Alltrim(wjmc)<>'.' And Alltrim(wjmc)<>'..'
   Endif
   Go nRecn
   Skip
Enddo
Go Top
oldseccc=alltrim(str(SECONDS( )-valoldsec))
valoldsec=SECONDS( )
? '准备工作用时[ '+oldseccc+' ]秒！'
? '搜索目标开始...'
Scan
    WAIT WINDOW '正在搜索[ ' + iif(len(ALLTRIM (wjmc))>150,left(ALLTRIM (wjmc),150),ALLTRIM (wjmc))+ " ]进程："+alltrim(str(recno()))+"/" +alltrim(str(reccount())) NOWAIT
    if !empty(scanobj1) .and. !empty(scanobj1type)
       if (scanobj1 $ alltrim(wjmc)) .and. (scanobj1type $ wjsx)
          ? wjmc,wjcd,wjrq,wjshj,wjsx
       endif
    endif
    if !empty(scanobj2) .and. !empty(scanobj2type)
       if (scanobj2 $ alltrim(wjmc)) .and. (scanobj2type $ wjsx)
          ? wjmc,wjcd,wjrq,wjshj,wjsx
       endif
    endif
EndScan
Use
oldseccc=alltrim(str(SECONDS( )-valoldsec))
valoldsec=SECONDS( )
? '搜索用时[ '+oldseccc+' ]秒！'
oldseccc=alltrim(str(SECONDS( )-oldsec))
? '总用时[ '+oldseccc+' ]秒！'

不用表查询结果如何显示

通过内在变量，数组存储、显示，已解决！谢谢版主！

vfp6中显示内在变量太多，vfp9中就可以顺利完成！

还是9强大！

[此贴子已经被作者于2018-7-20 21:41编辑过]

经测试，还是比表要快一点，扫描23万个文件，约10分钟，通过数组可以快1分钟左右。还可以，继续优化，可以更快。

查找要有针对性

scanfile('d:','lkysics2018.exe','A','lkysics','D')
第一个参数：磁盘符
第二个参数：文件名
第三个参数：类型
第四个参数：文件夹名
第五个参数：类型

其实可以更多！只要获取了所有文件的档案，那不就想怎么查就怎么查了。

已优化到10万文件，30秒左右扫描完成了！还不错。

可以分享否？

编程论坛 - 遍历指定盘符下的所有文件及文件夹并获取所有信息，欢迎交流提速！  https://bbs.bccn.net/thread-488779-1-1.html