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 android使用idhttp.get抓取https（ssl）文件

Delphi下调用有返回值的存储过程

Delphi里面判断一个字符串在另一个字符串中出现的次数

Delphi urldownloadtofile 支持进度条

Delphi-基础（for循环）

Delphi操作word中的表

cnvcl 组件包

Delphi setcurrentdir 设置当前文件夹路径

Delphi 实现简易语音发音（基于tts方式）

Delphi中输入法模式imemode属性的解释

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

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