delphi 获取某个目录所有的文件名

Listest

于 2021-11-11 15:38:12 发布

阅读量1.1k

点赞数 3

分类专栏： delphi 文章标签： delphi

本文链接：https://blog.csdn.net/Listest/article/details/121269114

版权

delphi 专栏收录该内容

18 篇文章

订阅专栏

function MakeFileList(Path,FileExt:string):TStringList ;
var
  sch:TSearchrec;
begin
    Result:=TStringlist.Create;
    if rightStr(trim(Path), 1) <> '\' then
        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));
           end
           else
           begin
             if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt='.*') then
             Result.Add(Path+sch.Name);
           end;
        until FindNext(sch) <> 0;
        SysUtils.FindClose(sch);
    end;
end;