Dateien löschen

[blauglaser]

Hallo,
irgendwas mach ich total falsch kann mir jemand weiterhelefen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

Var
path, Mask :String;
MyYear,MyMonth,MyDay:integer;
Datefile :String;
MyAge,FilDat,FilDat1 :TdateTime;


begin
path := Edit1.text;
Mask := Edit2.text;
MyYear := StrToInt (Edit3.Text);
MyMonth := StrToInt (Edit4.Text);
MyDay := StrToInt (Edit5.Text);
MyAge := EncodeDate(myYear, myMonth, Myday);
Datefile := FindFiles (path, Mask, True);//hier wir aus FindFirst und FindNext übergeben
FilDat := FileAge(Datefile);
if Fildat = MyAge
//if Date FileDateToDateTime (FileAge (Datefile))= MyAge Then
//if (Date(FileDateToDateTime(Datefile)) = MyAge)
then
               begin
                        DeleteFile(Datefile);
               end;



end;

Bis Datefile läuft alles die Datei wird an Datefie übergeben aber das mit dem Datum vergleichen kapier ich nicht.

Gruss und Danke
Ralf

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]