各位请帮一下小弟

Question

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

Answer 1

方法如下：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;