掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォルダの作成日時をフォルダ名に (ID:43878)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは フォルダの作成日時をフォルダ名にするため、 フォルダの作成日時を取得するため以下のようにしました。 日付は取れるのですが、おかしな日付となります。 良い方法はないでしょうか？ WinXp Delphi7です。 よろしくお願いします。 procedure TForm1.Button2Click(Sender: TObject); var FileName: string; hFile: integer; ftCreateDate, ftModifyDate, ftAccessDate: TFileTime; lftCreateDate : TFileTime; stCreateDate : TSystemTime; begin FileName:='D:\test01'; hFile:=FileOpen(FileName,fmOpenRead); //読みとり専用でファイルを開く GetFileTime(hFile,@ftCreateDate,@ftAccessDate,@ftModifyDate); //ファイルの日時を取得 {ローカル日時に変更} FileTimeToLocalFileTime(ftCreateDate,lftCreateDate); {システム日時に変更} FileTimeToSystemTime(lftCreateDate,stCreateDate); {作成日時} ShowMessage(FormatDateTime('yyyy/mm/dd hh:nn:ss',SystemTimeToDateTime(stCreateDate))); {修正日時} FileClose(hFile); //ファイルを閉じる end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.