problem beim Dateien löschen

[SaFu]

Danke ertmal das du mir Antwortest

Zitat von Butch87:

Zitat von fuknersascha:

Alter des Dateinamens

was meinst du damit?!? das erstellungsdatum der datei?!
[dp]Wie kann ich Erzeugungsdatum einer Datei ermitteln ?[/dp]

Nein das meine ich nicht damit funktioniert es ja auch schon

hab mal bissel weiter gemacht und das sieht jetzt so aus vielleicht erklärt das alles
Ich denke das ich auf dem richtigen weg bin

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
Var iDurchlaufi,TageVar :Integer;
  SearchRec : TSearchRec;
  
begin
IiTageVar:= SpinEdit.Value; // Auswhl der Tage von 30-200

 for iDurchlauf:= 1 to ShellTreeView2.Items.Count - 1 do
  begin
   ShellTreeView2.Select(ShellTreeView2.Items[iDurchlauf]);
    AbDatumloeschen:= FormatDateTime('yyyy mm dd',Date- iTagevar);
    Label10.Caption:= (AbDatumLoeschen);

     if findfirst(ShellTreeView2.Path +'\Stats\Saga\'+ AbDatumLoeschen + ' *.*',faAnyFile,SearchRec) = 0 then
      begin
       showmessage(ShellTreeView2.Path +'\Stats\Saga\'+ AbDatumLoeschen + SearchRec.Name);
       DeleteFile(ShellTreeView2.Path +'\Stats\Saga\'+ AbDatumLoeschen + SearchRec.Name);
      end;
   end;
end;

jetzt habe ich das problem das mir das Datum im Dateiname 2 mal angezeigt wird