请教图片文件搜索问题

[yncc_xyy]

我需要搜索并显示存储在计算机中的JPEG格式文件的图片和文件所在路径,VFP中有无相应的函数,如果没有需要如何实现.

[TERRYYRRET]

可以试一下用FSO对象,不过文件很多的时候会慢

[十豆三]

请参考：

怎样遍历一个目录,取得目录下所有的JPG文件名

gnDbcnumber = ADIR(gadbf,'*.JPG') && 创建一个数组
CLEAR
FOR nCount = 1 TO gnDbcnumber && 遍历所有文件中扩展名为.JPG的文件
?gadbf(nCount,1)
ENDFOR

取得文件名及路径后存入临时表，
然后用IMAGE控件显示即可。

[yncc_xyy]

继续请教:
如果此时我不知道文件所在的目录,可以遍历整个硬盘吗?

[十豆三]

上面的遍历目录下的文件名，再结合下面的代码：

*获得当前文件夹下的文件夹名

*-------------------------------

nCount=ADIR(aDirArray,'','D')
FOR I=1 TO nCount
IF SUBSTR(aDIRArray(i,5),5,1)='D' AND aDirArray(I,1)!='.' AND aDirArray(I,1)!='..'
?aDirArray(I,1)
ENDIF
ENDFOR