[转载]Delphi 2010 新功能:IOUtils单元TDirectory的其他功能

原文地址：Delphi 2010 新功能:IOUtils单元TDirectory的其他功能作者：StremWang

Delphi 2010 新增功能之: IOUtils 单元: TDirectory 的其他功能

Delphi 2010 新增功能: 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();

--------------------------------------------------------------------------------

测试代码: 

--------------------------------------------------------------------------------

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

uses IOUtils, Types, TypInfo;

//TDirectory.GetLogicalDrives; {获取驱动器列表}

procedure TForm1.Button1Click(Sender: TObject);

var

  s: string;

  arr: TStringDynArray;

begin

  arr := TDirectory.GetLogicalDrives;

  Memo1.Clear;

  for s in arr do Memo1.Lines.Add(s);

end;

//TDirectory.GetAttributes(); {获取文件夹属性, 譬如只读、存档等}

procedure TForm1.Button2Click(Sender: TObject);

var

  fas: TFileAttributes;

  fa: TFileAttribute;

begin

  fas := TDirectory.GetAttributes('c:Windows');

  Memo1.Clear;

  for fa := Low(TFileAttribute) to High(TFileAttribute) do

    if fa in fas then Memo1.Lines.Add(GetEnumName(TypeInfo(TFileAttribute), Ord(fa)));

end;

//TDirectory.SetAttributes(); {设置文件夹属性, 这里是设置为隐藏}

procedure TForm1.Button3Click(Sender: TObject);

const

  path = 'c:tempABC';

begin

  TDirectory.CreateDirectory(path);

  TDirectory.SetAttributes(path, [TFileAttribute.faHidden]);

end;

end.