在VFP中如何历遍所有文件夹和文件

在VFP中，能象一些杀毒软件那样，找遍磁盘的所有文件夹和文件吗？
答案是肯定的，而且很简单：
*利用VFP的Create Cursor -SQL命令建立有5个字段的临时库
*结合前面提到的ADIR()函数便可完成。
下面是具体代码：

dqml='C:' &&需扫描的盘符
use
Create Cursor mylsdbf (wjmc c(120),wjcd n(10),wjrq d,wjshj c(10),wjsx c(6))
xGS=1
xCD=0
append BLANK
REPL wjmc WITH dqml
do while !eof()
　　nRecn=Recn()
　　dqml=allt(wjmc)+''
　　x=adir(Mysz,(dqml+'*.*'),'rashd')
　　if x<>0
　　　　for I=3 to x
　　　　　Mysz(I,1)=dqml+Mysz(I,1)
　　　　　xGS=xGS+1
　　　　　xCD=xCD+Mysz(I,2)
　　　　endf
　　　　append from array Mysz for allt(wjmc)<>'.' AND allt(wjmc)<>'..' and 'D'$wjsx
　　endi
　　go nRecn
　　skip
endd
use