Hallo,
SearchRec prüft garnichts, dort sind immer der zuletzt von FindFirst und FindNext gefundene Dateiname und die übrigen Dateiinformationen enthalten.
Na, in meinem Quelltext oben war eine kleine "Unschärfe". Es soll ja ab AbDatumloeschen (also einschließlich) gelöscht werden, daher muss es
Delphi-Quellcode:
if SearchRec.Name <= AbDatumloeschen then
begin
showmessage(ShellTreeView2.Path +'\Stats\Saga\'+ SearchRec.Name);
DeleteFile(ShellTreeView2.Path +'\Stats\Saga\'+ SearchRec.Name);
end;
und nicht
Delphi-Quellcode:
if SearchRec.Name < AbDatumloeschen then
begin
showmessage(ShellTreeView2.Path +'\Stats\Saga\'+ SearchRec.Name);
DeleteFile(ShellTreeView2.Path +'\Stats\Saga\'+ SearchRec.Name);
end;
heißen.
Stephan