function MakeFileList

最新推荐文章于 2024-08-20 15:45:27 发布

seagull327

最新推荐文章于 2024-08-20 15:45:27 发布

阅读量630

点赞数

文章标签： function path string

本文链接：https://blog.youkuaiyun.com/haiou327/article/details/6147062

版权

本文介绍了一个用于递归遍历指定路径下所有文件的实用工具函数MakeFileList。该函数能够根据给定的文件扩展名筛选文件，并支持设置限制文件名进行精确匹配。适用于查找特定类型的文件或单一文件。

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

function MakeFileList(Path, FileExt: string; LimitFile: string): TStringList; var sch: TSearchrec; begin Result := TStringlist.Create; if rightStr(trim(Path), 1) <> '/' then //RightStr Uses StrUtils Path := trim(Path) + '/' else Path := trim(Path); if not DirectoryExists(Path) then begin Result.Clear; exit; end; if FindFirst(Path + '*', faAnyfile, sch) = 0 then begin repeat Application.ProcessMessages; if ((sch.Name = '.') or (sch.Name = '..')) then Continue; // if DirectoryExists(Path + sch.Name) then begin Result.AddStrings(MakeFileList(Path + sch.Name, FileExt, LimitFile)); end else begin if ((UpperCase(extractfileext(Path + sch.Name)) = UpperCase(FileExt)) or (FileExt = '.*')) and (sch.Name = LimitFile) then Result.Add(Path + sch.Name); end; until FindNext(sch) <> 0; SysUtils.FindClose(sch); end; end;