FileDeleter Problem

[mOzZzI]

Hai,
ich versuche gerade einen FileDeleter zu schreiben, läuft auch schon ganz gut, doch ich weiß nicht wie ich Dateien löschen kann, die in einer ListBox als Dateipfad angezeigt werden...
Also, wie kann ich Dateien löschen, von denen ich nur den Dateipfad habe?

Gruß Philipp

[PierreB]

DeleteFile

Du kennst die Forensuche oder die Delphi - Hilfe ?

[SirThornberry]

du hast nur den Dateipfad? du musst doch auch wissen welche Datei du löschen willst. Oder willst du alle Dateien unter dem Pfad löschen? dann müsstest du diese vorher auflisten (findfirst etc.) und dann die gefundenen löschen.

[mOzZzI]

also, ich hänge euch mal nen kleinen screenshot an...

Ich fülle die ListBox durch Drag&Drop dateien hinzu, und wenn man auf DeleteFiles klickt sollen alle gelöscht werden, die in der ListBox sind...
Hoffe ihr könnt mir weiterhelfen

[SirThornberry]

du hast doch den dateinamen mit pfad. Gehe einfach mit einer Schleife alle einträge der Listbox durch und rufe damit DeleteFile auf.

[PierreB]

Sollte der Dateiname nicht im Ordnerpfad enthalten sein füge ihn hinzu, und dann lösche die Dateien per DELETEFILE !

[mOzZzI]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
 for i := 0 to ListBox1.Items.Count - 1 do
begin
  DeleteFile(ListBox1.Items[i]);
end;
end;

Warum deleted er die Files nicht? Wo ist da der Fehler?

[Christian Seehase]

Moin mOzZzI,

DeleteFile ist eine Funktion, die Dir true oder false zurückliefert, je nachdem, ob das Löschen nun erfolgreich war oder nicht.
Frag' doch mal mit

ShowMessage(SysErrorMessage(GetLastError)); was schiefgegangen ist, wenn das Löschen fehlschlägt.

[mOzZzI]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
begin
  DeleteFile(ListView1.Items.???);
end;
end;

hab ein bisschen umgeformt...
Doch wie kann ich jetzt die Files löschen?
Wenn ich ja, DeleteFile(ListView1.Items[i]) geht es ja nicht, da Inkomplatible Typen ListItem und String...
Wie mache ich das jetzt?

Neuer Screenie im Anhang

[dahead]

Du listest doch bestimmte Dateien in deiner Listview auf, oder? Bevor du die Dateien dort auflistest, solltest du dir die Namen bspw. in einer TStringList merken.

Wenn jetzt der Benutzer eine Datei aus deiner Listview auswählt und löschen will, suchst du (bspw. via ID) in deiner TStringList nach der entspr. Datei und löschst diese (DeleteFile(StringList1[ID]);. Anschließend solltest du natürlich die Datei aus der Stringliste und aus der Listview entfernen.

Falls du das nicht willst, kannst du ja das Verzeichnis aus der Column "Pfad" lesen und den Dateinamen aus der Column "Filename" und das ganze zusammenstückeln. Besser finde ich jedoch obige Variante.

Zum Befehl DeleteFile hast du ja schon einige Links genannt bekommen.