各位请帮一下小弟

[cwj88888]

请问怎样实现所有文件的遍历搜索,网上有没有介绍这方面的资料呢?

[Eastunfail]

FindFirst,FindNext,FindClose和递归

[Eastunfail]

方法如下：

FileSearch ：查找目录中是否存在某一特定文件
FindFirst ：在目录中查找与给定文件名(可以包含匹配符)及属性集相匹配的第一个文件
FindNext ：返回符合条件的下一个文件
FindClose ：中止一个FindFirst / FindNext序列

//参数：
//Directory : string 目录路径
//RetList : TStringList 包含了目录路径和查询到的文件

Funtion FindAllFileInADirectory(const: string; var RetList: TStringList):Boolean;
var
　SearchRec: TSearchRec;
begin
　if FindFirst(Directory + ’*.*’, faAnyFile, SearchRec) = 0 then
　begin
　　repeat
　　RetList.Add(Directory + ’’ + SearchRec.Name);
　　until (FindNext(SearchRec) <> 0);
　end;
　FindClose(SearchRec);
end;