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

{-------------------------------------------------------------------------------

过程名:    MakeFileList 遍历文件夹及子文件夹

参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名

返回值:    TStringList

 

USE StrUtils

 

   Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ;

       ListBox1.Items:= MakeFileList( 'E:\极品飞车','.*') ;

-------------------------------------------------------------------------------}

function MakeFileList(Path,FileExt:string):TStringList ;

var

sch:TSearchrec;

begin

Result:=TStringlist.Create;

 

if rightStr(trim(Path), 1) <> '\' then

    Path := trim(Path) + '\'

else

    Path := trim(Path);

 

if not DirectoryExists(Path) then

begin

    Result.Clear;

    exit;

end;

 

if FindFirst(Path + '*', faAnyfile, sch) = 0 then

begin

    repeat

       Application.ProcessMessages;

       if ((sch.Name = '.') or (sch.Name = '..')) then Continue;

       if DirectoryExists(Path+sch.Name) then

       begin

         Result.AddStrings(MakeFileList(Path+sch.Name,FileExt));

       end

       else

       begin

         if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt='.*') then

         Result.Add(Path+sch.Name);

       end;

    until FindNext(sch) <> 0;

    SysUtils.FindClose(sch);

end;

end;