本文整理自网络，侵删。
TDirectory
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;
相关阅读 >>
Delphi的组件选项卡（component palette）
Delphi tdsauthenticationmanager的用法
Delphi isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday ... 判断时间是否合法
更多相关阅读请进入《Delphi》频道 >>
