delphi XE 枚举指定目录及子目录下的所有文件


本文整理自网络,侵删。

 
procedure DoEnumAllFiles(strPath: string;FileList: TStrings);{功能:枚举指定目录及子目录下的所有文件}
var
  sr: TSearchRec;

begin
  if strPath = '' then Exit;

  strPath := IncludeTrailingPathDelimiter(strPath);

  if not DirectoryExists(strPath) then Exit;

  if FindFirst(strPath + '*.*', System.SysUtils.faAnyFile, sr) = 0 then
  begin
    try
      repeat
        //非目录的,就是文件
        if (sr.Attr and System.SysUtils.faDirectory = 0 ) then
        begin
          FileList.Add(strPath + sr.Name);
        end;
      until FindNext(sr) <> 0;
    finally
      System.SysUtils.FindClose(sr);
    end;
  end;

  //查找子目录。
  if FindFirst(strPath + '*', System.SysUtils.faDirectory, sr) = 0 then
  begin
    try
      repeat
        if (sr.Attr and System.SysUtils.faDirectory<>0) and (sr.Name<>'.') and (sr.Name<>'..') then
        begin
          DoEnumAllFiles(strPath + sr.Name, FileList);
        end;
      until FindNext(sr) <> 0;
    finally
      FindClose(sr);
    end;
  end;

end;

相关阅读 >>

Delphi 按钮躲避鼠标点击

Delphi判断驱动器类型

Delphi让form先于控件响应按键

Delphi 获取文件crc和md5

Delphi中 tstringlist和thashedstringlist的性能对比

Delphi获得文件的版本号

如何在Delphi xe中通过ftp下载文件

Delphi获取mac地址

Delphi的ttreeview类使用大全

Delphi获取默认浏览器

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...