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

本文介绍了一个实用的过程,用于遍历指定文件夹及其子文件夹下的文件,并提供了代码示例。该过程可以根据需要筛选特定扩展名的文件。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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

 

procedure MakeTree(var slFile: TStrings; const FileExt: string);
var
  Sr : TSearchRec;
  Err : integer;
  TrSize, FilePath : 
string;
begin
  Err:
=FindFirst('*.*', $11, Sr) ;
  While (Err 
= 0do
  begin
    
if Sr.Name[1<> '.' then
    begin
      
if FileExt = '' then
        slFile.Add(sr.Name)
      
else
      begin
        
if AnsiUpperCase(Copy(sr.Name, Length(sr.Name) - 34)) = 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" 可以指定查询文件的后缀名.

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

 

评论 7
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值