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

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;

until FindNext(F) <> 0;

finally

FindClose(F);

end;

推荐分享