zoukankan      html  css  js  c++  java
  • Delphi 2010 新增功能之: IOUtils 单元(5): 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:\temp\ABC';
    begin
      TDirectory.CreateDirectory(path);
      TDirectory.SetAttributes(path, [TFileAttribute.faHidden]);
    end;
    
    end.
    
  • 相关阅读:
    iozone
    2019-11-23-WPF-使用-RawInput-接收裸数据
    2019-11-22-Roslyn-在多开发框架让-msbuild-的-Target-仅运行一次
    2019-3-1-C#-json-转-xml-字符串
    2018-11-19-visualStudio-无法登陆
    2019-4-21-Roslyn-通过-NuGet-库修改应用程序入口函数
    2019-8-31-dotnet-core-集成到-Mattermost-聊天工具
    2019-7-29-win10-UWP-使用-MD5算法
    2018-8-10-C#-TimeSpan-时间计算
    2019-6-15-WPF-触摸到事件
  • 原文地址:https://www.cnblogs.com/del/p/1584858.html
Copyright © 2011-2022 走看看