Delphi下的文件夹遍历函数

最新推荐文章于 2019-01-08 00:45:49 发布

godlessmerar

最新推荐文章于 2019-01-08 00:45:49 发布

阅读量862

点赞数

CC 4.0 BY-SA版权

文章标签： delphi 文件夹遍历

本文链接：https://blog.youkuaiyun.com/godlessmerar/article/details/17855257

本文介绍了一个Delphi函数，该函数可以递归地遍历指定文件夹及其所有子文件夹，查找所有文件并将它们的完整路径添加到TStringList中。此方法适用于需要收集文件系统中所有文件的应用场景。

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

遍历所有子目录，找出全部文件，将文件完整路径写入到一个TStringList中去。

function TraversalFolder(FileList: TStrings; Folder: string): Boolean;
var
  hFindFile: THandle;
  FindFileData: _WIN32_FIND_DATAW;
  FileName: string;
begin
  Result := False;

  if Folder = '' then
    Exit;

  if Folder[Length(Folder)] <> '\' then
    Folder := Folder + '\';

  hFindFile := FindFirstFile(PChar(Folder + '*.*'), FindFileData);
  if hFindFile = INVALID_HANDLE_VALUE then
    Exit;

  try
    repeat
      FileName := FindFileData.cFileName;
      if (FileName = '.') or (FileName = '..') then
        Continue;

      if (FindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY) then
      begin
        TraversalFolder(FileList, Folder + FileName + '\');
        Continue;
      end;

      if not (FindFileData.dwFileAttributes and FILE_ATTRIBUTE_ARCHIVE = FILE_ATTRIBUTE_ARCHIVE) then
        continue;

      FileList.Add(Folder + FileName);
    until not FindNextFile(hFindFile, FindFileData);

    Result := True;
  finally
    Windows.FindClose(hFindFile);
  end;
end;