delphi IOUtils TDirectory获取一个目录下所有文件名，包括子目录

本文整理自网络，侵删。

 
uses IOUtils,Types;


function FList(const ASourFile: string): TStrings;
var
    a: TStringDynArray;
    i: integer;
begin
   result := TStringList.Create;
   a := IOUtils.TDirectory.GetFiles(ASourFile,TSearchOption.soAllDirectories,nil);    // 获取一个目录下所有文件名，包括子目录
   for i := 0 to Length(a)-1 do
   result.add(a[i]);  // 文件名 + 创建时间
end;

procedure TForm1.Button1Click(Sender: TObject);
var
filelist:tstringlist;
begin
filelist:=tstringlist.Create;
filelist.AddStrings(FList('D:\delphizj'));
memo1.text:=inttostr(filelist.count);
end;

end.
 

相关阅读 >>

Delphi 把单张图片保存到access数据库

Delphi 批量生成 a到z 字母

Delphi winapi: getnextwindow - 获取指定窗口z上或z下的窗口的句柄

Delphi 多线程 开始、暂停、继续、停止

Delphi代码中嵌入asm代码

Delphi radiogroup 组件基本用法

tidtcpclient控件中文指南

Delphi获取13位格林治时间实现方法

Delphi tadodataset 加载数据到fdmemtable1

Delphi 关闭指定窗口标题的窗口

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

转载请注明出处：木庄网络博客 » delphi IOUtils TDirectory获取一个目录下所有文件名，包括子目录