unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  FileUnit,
  XPtest;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button4: TButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure FileFolderInfoOutput(Path: String);
    procedure FileFolderInfoTitleOutput;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := ExtractFileDir(Application.ExeName);


end;

procedure TForm1.Button4Click(Sender: TObject);

    procedure CreateTextFile(FullPath: String);
    var
      SL: TStringList;
    begin
      ForceDirectories(ExtractFileDir(FullPath));
      SL := TStringList.Create; try
      SL.Text := 'test';
      SL.SaveToFile(FullPath);

      finally SL.Free; end;
    end;

begin
  ForceDirectories( Edit1.Text + '\test' );
  CreateTextFile( Edit1.Text+'\test\aaa.txt' );
  CreateTextFile( Edit1.Text+'\test\bbb.txt' );
  CreateTextFile( Edit1.Text+'\test\folder1\ccc.txt' );
  CreateTextFile( Edit1.Text+'\test\folder1\ddd.txt' );
  CreateTextFile( Edit1.Text+'\test\folder2\eee.txt' );
  ForceDirectories(Edit1.Text+'\test\folder2');
  ForceDirectories(Edit1.Text+'\test\folder2\folder3');
  ForceDirectories(Edit1.Text+'\test\folder2\folder4');
  ForceDirectories(Edit1.Text+'\test\folder2\folder3\folder5');
  CreateTextFile( Edit1.Text+'\test\folder2\folder4\fff.txt' );
  //a〜fの6ファイルを作成
  //folder1〜5の5ファイルを作成
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  FileFolderInfoTitleOutput;
  FileFolderInfoOutput(Edit1.Text+'\test\aaa.txt');
  FileFolderInfoOutput(Edit1.Text+'\test\bbb.txt');
  FileFolderInfoOutput(Edit1.Text+'\test\folder1');
  FileFolderInfoOutput(Edit1.Text+'\test\folder2');

end;

procedure TForm1.FileFolderInfoTitleOutput;
begin
  Memo1.Lines.Add('パス'#9'種類'#9'サイズ'#9+
    '作成日時'#9'更新日時'#9'アクセス日時');
end;


procedure TForm1.FileFolderInfoOutput(Path: String);
var
  FileFolderDateTimes: TFileFolderDateTimes;
begin
  FileFolderDateTimes := GetFileFolderDateTimes(Path);
  Memo1.Lines.Add(Path+#9+
    GetFileTypeName(Path)+#9+
    IntToStr(FileUnit.GetFileSize(Path))+#9+
    DateTimeToStr(FileFolderDateTimes.Create)+#9+
    DateTimeToStr(FileFolderDateTimes.Modify)+#9+
    DateTimeToStr(FileFolderDateTimes.Access) );
end;

end.