"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.

markieren

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.

Hallo,

zum Beispiel so:

markieren

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

**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 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

"Geändert am" ermitteln?

"Geändert am" ermitteln?

Re: "Geändert am" ermitteln?

Re: "Geändert am" ermitteln?

Re: "Geändert am" ermitteln?

Re: "Geändert am" ermitteln?

Re: "Geändert am" ermitteln?

Forumregeln

OregonGhost Registriert seit: 8. Jun 2002 Ort: Lübeck 1.216 Beiträge Delphi 3 Professional	#5 Re: "Geändert am" ermitteln? 11. Okt 2007, 15:43 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 ^^ Oregon Ghost --- Wenn NULL besonders groß ist, ist es fast schon wie ein bisschen eins.
	Zitat