delphi 获取文件夹下包括子目录所有文件

本文整理自网络，侵删。

 
推荐这个：http://www.delphitop.com/html/wenjian/3694.html

Procedure ListFolders(const DirName: string; FolderList : Tstrings);
var
  Path: string;
  F: TSearchRec;
  SubDirName: string;

begin
  Path:= DirName + '\*.*';
  Application.ProcessMessages;
  if FindFirst(Path, faAnyFile, F) = 0 then begin
    try
      repeat
        if (F.Attr and faDirectory <> 0) then begin
          if (F.Name <> '.') and (F.Name <> '..') then begin
            SubDirName:= IncludeTrailingPathDelimiter(DirName) + F.Name;
            FolderList.Add(SubdirName);
             ListFolders(SubDirName,FolderList);
          end;
        end;
      until FindNext(F) <> 0;
    finally
      FindClose(F);
    end;
  end;
end;
 

相关阅读 >>

Delphi 如何判断可见字符 unicode

Delphi xe 跨平台（windows、android安卓、苹果macos、苹果ios）写法

Delphi 随鼠标移动的十字线的快速画法

Delphi for 循环的例子 多种用法

Delphi 随机字符3

Delphi编解码js字符串

Delphi版文件夹加密软件源代码

Delphi tscrollbar 用于滚动窗口、组件内容

Delphi 精要-读书笔记(内存分配释放)

Delphi实现类似android锁屏的密码锁控件

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

转载请注明出处：木庄网络博客 » delphi 获取文件夹下包括子目录所有文件