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

最新推荐文章于 2019-05-24 14:17:32 发布

yonghenghaha

最新推荐文章于 2019-05-24 14:17:32 发布

阅读量913

点赞数

分类专栏： Delphi

Delphi 专栏收录该内容

17 篇文章 0 订阅

订阅专栏

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;

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;

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;