フォルダの作成日時をフォルダ名に (ID：43881)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

放置スレっぽいので，質問者からの応答なしですが，レスしておきます．

ファイルやフォルダの作成日時を取得する方法は，いくつか考えれますが，
Delphi 7 というので，こんなところでいいのかも．

//=============================================================================
//  フォルダまたはファイルの作成日時取得
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  FolderPath : String;
  ADateTime  : TDateTime;
  SearchRec  : TSearchRec;
  AFileData  : TWin32FindData;
begin
  FolderPath := 'D:\000'; //というフォルダまたはファイルの場合

if FindFirst(FolderPath, faAnyFile, SearchRec) = 0 then begin
    AFileData := SearchRec.FindData;
    //作成日
    ADateTime := FileTimeToDateTime(AFileData.ftCreationTime);
    Edit1.Text := FormatDateTime('yyyy年mm月dd日 hh時nn分', ADateTime);

FindClose(SearchRec);
  end;
end;

//=============================================================================
//  TFileTime型の値をDelphiのTDateTime型に変換する関数
//=============================================================================
function TForm1.FileTimeToDateTime(ATime: TFileTime): TDateTime;
var
  SystemTime : TSystemTime;
  TempTime   : TFileTime;
begin
  try
    //FileTime形式(世界協定時刻)を地域にあわせる
    FileTimeToLocalFileTime(ATime, TempTime);
    
    //FileTime形式をSystemTime形式にする
    FileTimeToSystemTime(TempTime, SystemTime);
    //SystemTime形式をDelphiのTDateTime形式に変換
    Result := SystemTimeToDateTime(SystemTime);
  except
    Result := 0;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る