problem beim Dateien löschen

[nahpets]

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