执行本地文件搜索。 CFindFile包括开始搜索，查找文件以及返回文件的标题，名称或路径的成员函数。 与DIR一起，它与unicode一起工作。

 

示例：简单的文件搜索

 

#define unicode

#INCLUDE ONCE "windows.bi"

#INCLUDE ONCE "Afx/CFindFile.inc"

USING Afx

 

DIM pFinder AS CFindFile

DIM wszPath AS WSTRING * MAX_PATH = ExePath & "\test1.bas"

IF pFinder.FindFile(wszPath) = S_OK THEN

 PRINT STR(pFinder.FileSize)

END IF

pFinder.Close

 

示例：目录列表

 

#define unicode

#INCLUDE ONCE "windows.bi"

#INCLUDE ONCE "Afx/CFindFile.inc"

USING Afx

 

DIM pFinder AS CFindFile

DIM wszPath AS WSTRING * 260 = ExePath & "\*.bas"

IF pFinder.FindFile(wszPath) = S_OK THEN

 DO

    IF UCASE(pFinder.FileExt) = "BAS" THEN

       PRINT pFinder.FileNameX

    END IF

    IF pFinder.FindNext = 0 THEN EXIT DO

 LOOP

END IF

pFinder.Close