problem beim Dateien löschen

[nahpets]

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