Ordner bis auf die letzten X Dateien löschen

[lkz633]

Hallo,

wie der betreff schon sagt, ich würde gerne in einem Ordner alle Dateien löschen bis auf die 10 letzten(abhänig von der Zeit)


Ich weiss dass ich mit TSearchRec die Zeit einer Datei zurückbekomme, ich kann doch jetzt aber nicht alle Dateien durchgehen und mir die Zeiten merken, diese speichern, sortieren, und dann die anderen Dateien löschen.

Hat dazu jemand eine Idee bzw gibt es eine einfache Lösung?

Gruss lkz633