delphi 遍历所有文件夹

遍历所有文件夹，并且保持到TStringList中

function getFileTree(const filepath:string):TStringlist;

var

  sr:TSearchrec;

  fileName:string;

  I:integer;

begin

   result:=TStringlist.Create;

   if Findfirst(filepath+'\*',faanyfile,sr)=0 then

   begin

     repeat

        if (sr.Name = '.') or (sr.Name='..') then continue;

        if sr.Attr = fadirectory then

        begin

          result.Add(sr.Name);

          result.AddStrings(getFileTree(filepath+'\'+sr.Name)) ;

        end

        else

          result.Add(sr.Name);

     until findnext(sr) <>0;

     findclose(sr);

   end;

end;