Dateien in Verzeichnis finden und Timestamps erhalten? (in einem Rutsch)

[a.def]

Aktuell verwende ich FindFirst, FindNext, um Dateien in einem Verzeichnis zusammenzutreiben und in eine StringListe zu schreiben.
Ich hole mir aber auch noch die Timestamps.

FindFirst und FindNext bietet wohl keine Möglichkeit direkt an die Timestamps zu kommen, daher raubt mir das zusätzliche Holen der Timestamps unglaublich Zeit.
Denn ich hole mit die Zeiten zusätzlich dann mit TFile.GetCreationTime() usw.
Mein Grundgerüst ist in etwa so: http://www.delphipraxis.net/2235-ver...rchsuchen.html

Gibt es eine Möglichkeit dennoch direkt die Timestamps in einem Rutsch zu bekommen ohne mehrfach auf die Datei zugreifen zu müssen

[mkinzler]

Werte TSearchRec.FinData aus.

[himitsu]

Zitat von a.def:

FindFirst und FindNext bietet wohl keine Möglichkeit direkt an die Timestamps zu kommen,

A) Welche Timestamps? (du redest ja nur von "Timestamp" )
B) Ich glaub da hast du falsch geguckt.

PS: FindFirst kapselt FindFirstFile und gibt die inneren Werte auch direkt raus.

[a.def]

Zitat von himitsu:

Zitat von a.def:

FindFirst und FindNext bietet wohl keine Möglichkeit direkt an die Timestamps zu kommen,

A) Welche Timestamps? (du redest ja nur von "Timestamp" )
B) Ich glaub da hast du falsch geguckt.

PS: FindFirst kapselt FindFirstFile und gibt die inneren Werte auch direkt raus.

Mit Timestamp meine ich Erstellungszeit, letzte Modifikationszeit und letzte Zugriffszeit

Zitat von mkinzler:

Werte TSearchRec.FinData aus.

TDirectory.GetLastWriteTime(Root + SR.Name) ist nun SR.FindData.ftLastWriteTime; Ich glaube so blind war ich noch nie zuvor
Jetzt muss ich nur noch gucken was der mit Low und High will

Memo an mich selbst: nächstes mal besser hingucken.

[himitsu]

Im MSDN steht, wie man die Timestamps auszuwerten hat.
WIN32_FIND_DATA

Oder du guckst ab.
TSearchRec.Time bzw. TSearchRec.TimeStamp