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

Delphi-Quellcode:

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.

[100nF]

probier mal das:

Delphi-Quellcode:

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

[PierreB]

Nur ne kleine Anregung zu deinem Programm: Vielleicht solltest du vorsichtshalber noch ne Sicherheitsabfrage einbauen ob die Dateien wirklich gelöscht werden sollen einbauen, sonst könnte es zu bösen Überraschungen kommen. ;)

[ichbins]

du musst eben den Pfad von dem Item rausfinden und den Dateinamen und die beiden zusammenfügen und dann löschen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i:Integer; 
begin 
  for i := 0 to ListView1.Items.Count - 1 do 
  begin 
    DeleteFile(ListView1.Items.item[i].caption (oder hieß die Eigenschaft TEXT?)+listview1.items.item[i].subitems[itemnummervondemitemmitdempfad].caption); 
  end; 
end;

[mOzZzI]

Egal, wie ich es mache, es klappt überhaupt nicht :wall:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
begin
DeleteFile(ListView1.Items.item[i].caption+listview1.items.item[i].subitems[??].caption); ) //ich hab ja keine subitems, ich habe Columns, bei mir ist der "PfadColumn" 2, aber das funzt nicht...
end;
end;

Please Help, ich weiß nicht mehr weiter... :(

[dahead]

Du hast sehrwohl subitems. Du füllst deine Columns mit Text ja schließlich auch durch SubItems.Add. Ich nehme an, du hast außerdem den Backslash vergessen. Lass dir halt mal eine Meldung (ShowMessage) über den von dir generierten Dateinamen anzeigen. Dann siehst du ob es ein korrekter Dateiname ist, oder nicht.

Allerdings wie weiter oben geschrieben, würde ich persönlich so nicht vorgehen.

[mOzZzI]

@ dahead
Wie würdest du vorgehen?
Mit der Stringlist?
Wie mache ich die?
sry, aber davon hab ich kA
Gruß Philipp

[100nF]

hast du schon meinen code probiert?
ich würde meinen, dieser müsste funktionieren.

hier ist er nochmal:

Delphi-Quellcode:

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

oder:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i:Integer; 
begin 
  for i := 0 to ListView1.Items.Count - 1 do 
  begin 
    DeleteFile(ListView1.Items.item[i].subitems[1]+Listview1.items.item[i].caption); 
  end; 
end;

[Matze]

Zitat:

DeleteFile(ListView1.Items.???);

Delphi-Quellcode:

ListView1.Items[i].Caption

müsste es sein, das wäre der Inhalt der ersten Spalte. Die weiteren bekommst du über subitems.


Edit: Ups, Seite 2 übersehen :oops:

[mOzZzI]

Sehr vielen Dank an dich urbanbruhin!!
So hats funktioniert...

Delphi-Quellcode:

DeleteFile(ListView1.Items.Item[i].subitems[1]);

Noch eine Frage:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
if if (MessageDlg('Please wait for a while when erasing selected/all data of the files.'+#13+#10+'Once they are deleted, they are never recovered.'+#13+#10+'Are you sure to delete them?', mtWarning, [mbYes, mbNo], 0) = mrYes) then
begin DeleteFile(ListView1.Selected.subitems[1]);
showmessage('File Deleted!');
ListView1.DeleteSelected; end
else //not
end;

Ausdruckstypmuss BOOLEAN sein, aber wo denn?

[Zacherl]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
begin 
  if (MessageDlg('Please wait for a while when erasing selected/all data of the files.' 
               + #13+#10 
               + 'Once they are deleted, they are never recovered.' 
               + #13+#10 
               + 'Are you sure to delete them?', mtWarning, [mbYes, mbNo], 0) = mrYes) then 
  begin 
    DeleteFile(ListView1.Selected.subitems[1]); 
    showmessage('File Deleted!'); 
    ListView1.DeleteSelected; 
  end 
    else //not 
  begin
 
  end.
end;

Ohne das 2. if sollte es gehen.

Florian

[mOzZzI]

upps, hab ich gar net gesehen :shock:

[Van HelF]

oder mit ner listbox:

Delphi-Quellcode:

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

[Luckie]

Christianb hat es auf der ersten Seite gesagt:

Zitat:

Zitat von Christian Seehase

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

Delphi-Quellcode:

ShowMessage(SysErrorMessage(GetLastError));

was schiefgegangen ist, wenn das Löschen fehlschlägt.

Warum wird dieser wertvolle Tipp auch in allen weiteren Code-Beispielen, die in diesem Thread gefolgt sind, absolut irgnoriert als wenn es Quatsch wäre den Rückgabewert zu prüfen? :roll: Und ihr seit dann diejenigen, die über Windows schimpfen, weil das Programm, was gar nicht von Microsoft ist, keine gescheite Fehlerbehandlung besitzt. Aber selber mal im eigenen Programm eine Fehlerbehandlung zu integrieren, die den Benutzer eventuell drauf hinweißt, dass die Datei, die er löschen will, gar nicht existiert oder dass er nicht die nötigen Rechte hat sie zu löschen, wiel sie ihm zum Beispiel nicht gehört, das wird dann auch nicht gemacht. :?

Die meisten Fehler im Code lassen sich sehr einfach beheben, wenn man sich einfach mal die Fehlermeldung von Windows ausgeben läßt. Und auch wenn man damit nicht direkt den Fehler findet, hat man meistens einen Anhaltspunkt was da schiefläuft. Und man hat gleichzeitig eine Meldung für den Benutzer, wenn eben ein Fehler aufgetreten ist.