Datei suchen + löschen

[PierreB]

Hmm.... Wär schon wenn du das etwas näher beschreiben könntest.
Fehlermeldung ?

[St.Pauli]

^^Sorry, war net mehr on

Habs jetzt so gemacht:

Code:

procedure TForm1.Button5Click(Sender: TObject);
var   I : Integer;
      b : string;
begin
 for I:=Listbox1.Items.Count-1 downto 0 do
  begin
   if Listbox1.Selected[I] then
     b := ListBox1.Items[I];
      DeleteFile(b);
  end;
end;

Und nach ausführlichen Tests in meinem Testlabor klappte es dann auch. :wink:

Weiss einer von euch, wie ich die markierten Einträge dann auch aus der Liste entferne?

[PierreB]

Bau einfach noch ein

Code:

ListBox1.Items.Delete(i);

mit ein. ;)

[St.Pauli]

Ok, jetzt klappt alles wie ichs haben wollte! Danke delphman!!! :-D :-D :-D

[PierreB]

Büdde St.Pauli !!! ;)

:lol: