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 备份恢复剪切板

Delphi gdi+ 文本输出

Delphi 单击android上的web浏览器链接以启动Delphi应用程序

Delphi 读url下txt中的下载地址的简单下载者代码

Delphi 对提交参数编码

Delphi 在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

Delphi 主窗体最小化时不显示在任务栏

Delphi检测android mock位置

Delphi 如何知道鼠标点击的statusbar的位置

Delphi 跟随鼠标位置点击弹出菜单

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

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