フォルダの更新日、作成日の変更 (ID:19297)

名前

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

本文

皆様にいつもお世話になっております。
フォルダの作成日更新日を変更する方法を教えていただけませんか。
ファイルはあるサイトにあった下記のような方法でできます。
フォルダはうまく変更できません。よろしくお願いいたします。m(_ _)m
var
	UpDate, CrDate: TDateTime;//更新日、作成日
begin
	SetFileDate('C:\Documents and Settings\go\デスクトップ\aaaa.txt', UpDate, CrDate);
	・・・
procedure TformMDI.SetFileDate(FileName: string; UpDate, CrDate: TDateTime);
// TDateTime型をTFileTime型に変換する
function DateTimeToFIleTime(FileTime:TDateTime):TFileTime;
var
    LocalFileTime, Ft: TFileTime;
    SystemTime:   TSystemTime;
begin
    result.dwLowDateTime  := 0;
    result.dwHighDateTime := 0;
    DateTimeToSystemTime(FileTime, SystemTime);
    SystemTimeToFileTime(SystemTime, LocalFileTime);
    LocalFileTimeToFileTime(LocalFileTime, Ft);
    result := Ft;
end;

var
    Ut, Ct: TFileTime;
    Fs: TFileStream;
begin
    Fs := TFileStream.Create(FileName, fmOpenReadWrite);
    try
        Ct := DateTimeToFileTime(CrDate);
        Ut := DateTimeToFileTime(UpDate);
        // ファイル日付を変更する
        // SetFileTimeの詳細はWin32APIのヘルプを参照
        SetFileTime(Fs.Handle, @Ct, nil, @Ut);
    finally
        Fs.Free;
    end;
end;

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

戻る