Delphi 根据扩展名的文件搜索

本文整理自网络，侵删。

 
procedure GetAllFilesEM(Path, ExtMask: String; List: TStrings;
  SubFolder: Boolean);
var
 Attrib, k: Integer;
 Search: TSearchRec;
begin
 Attrib := faArchive + faReadOnly + faHidden;

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

 with TStringList.Create do
 try
   CommaText := ExtMask;

   for k := 0 to Count - 1 do
   if FindFirst(Path + '*.' + Strings[k], Attrib, Search) = 0 then
     repeat
       List.Add(AnsiUpperCase(Path + Search.Name));
     until FindNext(Search) <> 0;

   FindClose(Search);
 finally Free end;

 if SubFolder then
 begin
   if FindFirst(Path + '*.*', faDirectory, Search) = 0 then
   begin
     repeat
       if ((Search.Attr and faDirectory) = faDirectory) and
         (Search.Name[1] <> '.') then
         GetAllFilesEM(Path + Search.Name, ExtMask, List, SubFolder);
         Application.ProcessMessages ;
     until FindNext(Search) <> 0;

     FindClose(Search);
   end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetAllFilesEM('d:\', '*.py', Memo1.Lines, True);
end;
 

相关阅读 >>

Delphi idftp ditdirectory未定义

Delphi allocmem

Delphi idhttp组件+idhttpserver组件实现文件下载服务

Delphi 根据字符串分隔符位置取值

Delphi 删除或清空一个目录(包含多级)

Delphi 判断字符是否是汉字,bytetype字符串中判断是否英文

Delphi 通过api强制tedit仅接受数字输入

Delphi jpg和bitmap互转转换的方法

Delphi winapi: gettickcount - 获取系统已启动的时间

Delphi strlenwide 汇编统计字符串长度

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

转载请注明出处：木庄网络博客 » Delphi 根据扩展名的文件搜索