学步园

TDirectory.CreateDirectory();     {建立新目录}
TDirectory.Exists();              {判断文件夹是否存在}
TDirectory.IsEmpty();             {判断文件夹是否为空}
TDirectory.Copy();                {复制文件夹}
TDirectory.Move();                {移动文件夹}
TDirectory.Delete();              {删除文件夹, 第二个参数为 True 可删除非空文件夹}
TDirectory.GetDirectoryRoot();    {获取目录的根盘符, 如: C:\}
TDirectory.GetCurrentDirectory;   {获取当前目录}
TDirectory.SetCurrentDirectory(); {设置当前目录}
TDirectory.GetLogicalDrives;      {获取驱动器列表; 下有举例}
TDirectory.GetAttributes();       {获取文件夹属性, 譬如只读、存档等; 下有举例}
TDirectory.SetAttributes();       {设置文件夹属性; 下有举例}

{获取、设置文件建立时间、修改时间、读取时间}
TDirectory.GetCreationTime();
TDirectory.SetCreationTime();
TDirectory.GetLastWriteTime();
TDirectory.SetLastWriteTime();
TDirectory.GetLastAccessTime();
TDirectory.SetLastAccessTime();

{使用 Utc 时间格式读取或设置}
TDirectory.GetCreationTimeUtc();
TDirectory.SetCreationTimeUtc();
TDirectory.GetLastWriteTimeUtc();
TDirectory.SetLastWriteTimeUtc();
TDirectory.GetLastAccessTimeUtc();
TDirectory.SetLastAccessTimeUtc();

复制文件夹（包括子文件夹）

uses IOUtils;

procedure TForm1.Button1Click(Sender: TObject);
const
  SourceDir = 'C:\Temp\Folder1'; { 源文件夹必须存在 }
  DestDir = 'C:\Temp\Folder2';   { 如果目标文件夹不存在, 程序会自动创建 }
begin
  TDirectory.Copy(SourceDir, DestDir);
end;

uses IOUtils, Types;

const path = 'C:\Program Files\Embarcadero\RAD Studio\7.0';

//获取指定目录下的文件与子目录
procedure TForm1.Button1Click(Sender: TObject);
var
  dfs: TStringDynArray;
  str: string;
begin
  dfs := TDirectory.GetFileSystemEntries(path);
  Memo1.Clear;
  for str in dfs do Memo1.Lines.Add(str);
end;

//获取指定目录下的、名称是 L 开头的文件与子目录
procedure TForm1.Button2Click(Sender: TObject);
var
  dfs: TStringDynArray;
  str: string;
begin
  dfs := TDirectory.GetFileSystemEntries(path, 'L*');
  Memo1.Clear;
  for str in dfs do Memo1.Lines.Add(str);
end;

//获取指定目录及嵌套目录下的所有文件与子目录
procedure TForm1.Button3Click(Sender: TObject);
var
  dfs: TStringDynArray;
  str: string;
begin
  dfs := TDirectory.GetFileSystemEntries(path + '\source', TSearchOption.soAllDirectories, nil);
  Memo1.Clear;
  for str in dfs do Memo1.Lines.Add(str);
end;

//使用 TDirectory.TFilterPredicate 函数参数
procedure TForm1.Button4Click(Sender: TObject);
var
  dfs: TStringDynArray;
begin
  Memo1.Clear;
  dfs := TDirectory.GetFileSystemEntries(path,
    function(const Path: string; const SearchRec: TSearchRec): Boolean
    begin
      //这里可以有更多过滤条件或其他处理
      Memo1.Lines.Add(Path + '\' + SearchRec.Name);
    end
  );
end;