Hallo zusammen,
Anfänger braucht wieder Hilfe es handelt sich darum Dateien zu löschen die ein bestimtes Datum haben.
Das zu vergleichende Datum wird in 3 Edit Felder eingegeben
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
MyYear, MyMonth, MyDay :integer;
MyDate: TDateTime;
begin
MyYear := StrToInt(Edit3.Text);
MyMonth := StrToInt(Edit4.Text);
MyDay := StrToInt (Edit5.Text);
MyDate := EncodeDate(MyYear,MyMonth,MyDay);
if
//Wie kann ich hier das Datum der Dateien mit dem eingegebenen Datum verleichen
then
begin
DeleteFile(ListBox1.Items.strings[0]);//Wie kann man hier dann alle Dateien löschen und nicht nur eine
end;
end;
Zuerst wird mit FindFirst und FindNext nach Dateien gesucht diese werden dann an eine Listbox übergeben wie kann ich jetzt das Dateidatum der Dateien in der Listbox ermitteln und mit dem Datum vergleichen dass ich in die Editfelder eingegeben habe es sollen daraufhin alle Dateien mit Delete gelöscht werden deren Datum älter ist als das eingegebene.
Ein kleines Beispiel wäre toll.
Gruss
Ralf
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]