Delphi下遍历文件夹下所有文件的递归算法

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

 

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" 可以指定查询文件的后缀名.

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