请问大侠，怎么遍历下个目录下的所以子文件？

Question

在应用实践中，我们经常会用到文件查询功能。通过Win95中提供的懳募檎覓，我们可以 
方便的找出磁盘上任何子目录下的文件，其原因是该查找功能可以遍历指定目录下的所有子 
目录中的文件。从编程角度讲，它实现了子目录级的文件查询。 其实，这项功能并不难实现，关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi 
实现了该项功能（任意子目录级），由于使用了懙莨閽，程序思路清晰，代码量小。 实现方法： 1． 获取当前目录下的所有下一级子目录，2． 存入字符串列表中（Tstrings）。 其中，用到了几个API函数。 FindFirst是找出指定目录下第一个文件或目录。 FindNext一般和FindFirst配合使用，用来找出下一个文件或目录。 FindClose用来关闭查询。 （以上函数Delphi在线帮助中有详尽解释，在此不赘述）； 3． 用FileExists函数查找当前目录，4． 寻找是否有满足条件的文件存在。 5． 依次使各个子目录成为当前目录，6． 递归调用本函数。 7． 释放资源，8． 返回查询结果。 　 　 代码如下： 1． 从搜索记录中判断是否是子目录。 　 function IsValidDir(SearchRec:TSearchRec):Boolean; begin 
if (SearchRec.Attr=16) and (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then Result:=True else Result:=False; end; 2． 这是查询主体函数。 参数介绍： Mainpath： 指定的查询目录。 Filename： 欲查询的文件。 Foundresult： 返回的含完整路径的匹配文件（可能有多个）。 如果有匹配文件，函数返回True，否则，返回False; 　 function SearchFile(mainpath:string;filename:string; var foundresult:TStrings):Boolean; var i:integer; Found:Boolean; subdir1:TStrings; searchRec:TsearchRec; begin found:=false; if Trim(filename)<>'' then begin subdir1:=TStringList.Create;//字符串列表必须动态生成 //找出所有下级子目录。 if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then begin if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name); while (FindNext(SearchRec) = 0) do begin if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name); end; end; FindClose(SearchRec); //查找当前目录。 if FileExists(mainpath+filename) then begin found:=true; foundresult.Add(mainpath+filename); end; //这是递归部分，查找各子目录。 for i:=0 to subdir1.Count-1 do found:=Searchfile(mainpath+subdir1.Strings[i]+ '\',Filename,foundresult)or found; //资源释放并返回结果。 subdir1.Free; end; result:=found; end; 　 总之，只要掌握了思路，用哪种编程语言都可以实现。现在，你可以轻松的给你的系统挂上 
一个非常使用的功能了。 

Answer 1

http://www.csdn.net/expert/Topic/60138.shtm你看应该搜索一下以前的问题，有答案的。这个 递归检索 检索传进路径下的所有路径和文件。
procedure TForm1.DoSearchPathFile(qPath: string);
var
  SR: TSearchRec;
  FileAttr: Integer;
begin
  FileAttr := faDirectory;
  FindFirst(qPath  + '\*.*', FileAttr, SR);  While FindNext(SR) = 0 do
  begin
    if (SR.Name <> '.') and (SR.Name <> '..') then begin
      if DirectoryExists(qPath + '\' + SR.Name) then
      begin
        ListBox1.Items.Add('路径'+ qPath + '\' + SR.Name);
        DoSearchPathFile(qPath + '\' + SR.Name);      end;
      //;else ListBox1.Items.Add(qPath + '\' + SR.Name);    end;
  end;  FileAttr := faAnyFile;  FindFirst(qPath + '\*.*', FileAttr, SR);
  while FindNext(SR) = 0 do
  begin
    if (SR.Name <> '.') and (Sr.Name <> '..') then
    begin
      if not(DirectoryExists(qPath + '\' + SR.Name)) then
        ListBox1.Items.Add(qPath + '\' + SR.Name);
    end;
  end;
end;