"Geändert am" ermitteln?

[xZise]

Wie kann ich das ermitteln, welches beim Explorer unter "Geändert am" steht?
z.Zt. benutze ich FileAge, welches aber nicht bei Pfaden funktioniert, und welches deprecated ist :)

Abgesehen von der umständlichen Umwandlung und überprüfung (Teilweise kommt "-1" raus?! Liegt wohl daran, dass ich unter User programmiere :)

MfG
xZise

[DeddyH]

Die Funktion FindFirstFile befüllt Dir eine Struktur vom Typ TWin32FindData.

Zitat:

typedef struct _WIN32_FIND_DATA { // wfd
DWORD dwFileAttributes;
FILETIME ftCreationTime;
FILETIME ftLastAccessTime;
FILETIME ftLastWriteTime;
DWORD nFileSizeHigh;
DWORD nFileSizeLow;
DWORD dwReserved0;
DWORD dwReserved1;
TCHAR cFileName[ MAX_PATH ];
TCHAR cAlternateFileName[ 14 ];
} WIN32_FIND_DATA;

Schau Dir die FILETIME-Felder mal an.

[Funky-Sepp]

Hi,

hatte das Problem auch mal, hoffe dies hilft dir weiter.

Delphi-Quellcode:

function GetFolderDateTime( aFolder : String ) : TDateTime;
var
  SR: TSearchRec;
begin
  if FindFirst( ExcludeTrailingBackslash( aFolder ), faAnyFile, SR) = 0 then
    Result := FileDateToDateTime(SR.Time)
  else Result := 0;
  FindClose(SR);
end;

sollte auch für Dateien funktionieren.

Ist zwar wahrscheinlich nicht die beste lösung, aber es ist eine.

[s-off]

Hallo,

zum Beispiel so:

Delphi-Quellcode:

Function TForm1.GetDate(_sValue: String): TDateTime;
Var
   SR: TSearchRec;
Begin
   If FindFirst(_sValue, faAnyFile, SR) = 0 Then Begin
      Result := FileDateToDateTime(SR.Time);
      FindClose(SR);
   End;
End;

Funktioniert auch mit Verzeichnisnamen.

Edit: Na da sind wir uns ja einig :mrgreen:

[OregonGhost]

Ich könnte zwar schwören, das neulich schonmal hier geschrieben zu haben, aber:

Warum eigentlich FindFirst statt GetFileAttributesEx? Mir kommt es so unintuitiv vor, eine Datei zu suchen, die man bereits kennt, statt sie einfach direkt abzufragen ^^

[xZise]

Zitat:

Zitat von OregonGhost

Ich könnte zwar schwören, das neulich schonmal hier geschrieben zu haben, aber:

Warum eigentlich FindFirst statt GetFileAttributesEx? Mir kommt es so unintuitiv vor, eine Datei zu suchen, die man bereits kennt, statt sie einfach direkt abzufragen ^^

^^

Naja, der doppelte Vorschlag sieht okay aus ;) Zum ersten müsste ja fast damit zusammenhängen :)