Hallo,
dann darfst Du (leider) nur mit *.* suchen und musst den Vergleich auf kleiner/gleich mit dem Dateinamen durchführen,
d. h.: Für jede gefundenen Datei abfragen, ob SearchRec.Name < AbDatumloeschen ist.
Wenn der Dateiname immer in der Form YYYY MM DD ist, mag das sogar mit einem Stringvergleich funktionieren.
Delphi-Quellcode:
if findfirst(ShellTreeView2.Path +'\Stats\Saga\*.*',faAnyFile,SearchRec) = 0 then
begin
repeat
if SearchRec.Name < AbDatumloeschen then
begin
showmessage(ShellTreeView2.Path +'\Stats\Saga\'+ SearchRec.Name);
DeleteFile(ShellTreeView2.Path +'\Stats\Saga\'+ SearchRec.Name);
end;
until
FindNext(SearchRec) <> 0;
end;
Stephan