Erstelldatum einer Datei ermitteln

[Jochen Reichenberg]

Hallo Leute,

wieder mal ein dummes Problem: Wie zum Teufel, kann ich das Erstelldatum einer Datei ermitteln? FileAge(), GetFileDate() und TSearchRec.Time geben nur das letzte Modifikationsdatum her...

Ich hab' den BCB 6.

Danke schon Mal,

Jochen

[Uwe Richtsteig]

Ein Versuch:
<pre>String name = "C:\\temp\\logo_s-w.emf";
//data für FileInfos
WIN32_FIND_DATA data;

HANDLE hdl=FindFirstFile(name.c_str(), &data);

if(hdl==INVALID_HANDLE_VALUE)

//Erstellungsdatum
SYSTEMTIME stime;
FileTimeToSystemTime(&data.ftCreationTime, &stime);
/* in <b>stime</b> steht:
stime.wYear,
stime.wMonth,
stime.wDay,
stime.wHour,
stime.wMinute,
stime.wSecond,
stime.wMilliseconds

/* Datum der letzten Änderung, <b>stime</b> wie vor */

FileTimeToSystemTime(&data.ftLastWriteTime, &stime);</pre>

Vielleicht geht's auch einfacher BCB6.
Uw

[Christian Marquardt]

<pre>

Die Datei öffnen und dann:

BY_HANDLE_FILE_INFORMATION byfile;
SYSTEMTIME syszeit;
TDateTime datum;

GetFileInformationByHandle(Handle der Datei,&byfile);
FileTimeToSystemTime(&byfile.ftCreationTime,&sysze it);
datum=SystemTimeToDateTime(syszeit);
ErstellDatum->Caption=datum.FormatString("dd.mm.yyyy hh:nn:ss");
FileTimeToSystemTime(&byfile.ftLastAccessTime,&sys zeit);
datum=SystemTimeToDateTime(syszeit);
ZugriffsDatum->Caption=datum.FormatString("dd.mm.yyyy");
FileTimeToSystemTime(&byfile.ftLastWriteTime,&sysz eit);
datum=SystemTimeToDateTime(syszeit);
Schreibzugriff->Caption=datum.FormatString("dd.mm.yyyy hh:nn:ss");
</pre>

ich habe das jetzt aus einem meiner Programme kopiert, Sorry wenn was fehlt.

Christia

[Uwe Richtsteig]

Obwohl durch Christians erweiterert Codeangaben meien Darstllungen überlüssig wird, will ich der Ordnung halbe darauf hinweisen, dass der Abfrage

if(hdl==INVALID_HANDLE_VALUE)

natürlich eine sinnvolle Routine folgen sollte, die das Fehlen der gesuchten Datei behandelt.

Gruß

[Jochen Reichenberg]

Hallo Uwe und Christian,

das ist genau das, was ich gesucht habe. Vielen Dank.

Zu meiner Schande muß ich gestehen, daß ich die Struktur bereits in TSearchRec enthalten ist, welches ich zum Suchen der Dateien verwende. Ich hätte bloß die Augen aufmachen müssen...

Danke an Euch,

Joche

[Jochen Reichenberg]

Hallo Uwe und Christian,

das ist genau das, was ich gesucht habe...

Zu meiner Schande muß ich gestehen, daß die Struktur bereits in TSearchRec enthalten ist, welche ich zum Suchen der Dateien verwende. Ich hätte bloß die Augen aufmachen müssen.

Vielen Dank an Euch,

Joche