在实际开发中经常需要遍历某个文件夹及其子文件夹下的文件，看到很多人不知道如何做，忍不住写段东西与大家分享。

procedure MakeTree(var slFile: TStrings; 
const
 FileExt: 
string
);
var
  Sr : TSearchRec;
  Err : integer;
  TrSize, FilePath : 
string
;
begin
  Err:
=
FindFirst(
‘
*.*
‘
, $
11
, Sr) ;
  While (Err 
=
 
0
) 
do

  begin
    
if
 Sr.Name[
1
] 
<>
 
‘
.
‘
 then
    begin
      
if
 FileExt 
=
 
”
 then
        slFile.Add(sr.Name)
      
else

      begin
        
if
 AnsiUpperCase(Copy(sr.Name, Length(sr.Name) 
–
 
3
, 
4
)) 
=
 AnsiUpperCase(FileExt) then
          slFile.Add(sr.Name);
      end;
    end;
    
if
 ((Sr.Attr and faDirectory) 
<>
 
0
) AND (Sr.Name[
1
] 
<>
 
‘
.
‘
) then
    begin
      ChDir(Sr.Name) ;
      MakeTree(slFile, FileExt);
      ChDir(
‘
..
‘
) ;
    end ;

    Err:
=
FindNext(Sr) ;
  end ;
end;

 slFile 传入一个字符串列表以保存得到的结果, FileExt 为 ” 可以遍历所有文件，FileExt 指定为 “.Txt” 或者 “.mp3” 可以指定查询文件的后缀名.

如果需要将目录也返回，可以修改一下代码。