Löschen von Dateien

[SaFu]

Hi ab mal ne Frage.

Kann man bilder beziehungsweise Dateien in einer FileListBox nicht einfach so löschen? :gruebel:

Delphi-Quellcode:

{Bilder Löschen}
procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
FileListBox1.FileName:= a;
DeleteFile(ExtractFilePath (ParamStr(0))+'Bilder\'+ a);
end;

Gruss sascha

[phreax]

Du hast 2 Fehler in deinem code:

Delphi-Quellcode:

{Bilder Löschen}
procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
a := FileListBox1.FileName;//hier so muss das aussehen...
DeleteFile(ExtractFilePath (ParamStr(0))+'\Bilder\'+ a); //hier muss imho noch eine "\" rein...
end;

mfg phreax

[Blackheart]

Lass Dir doch einfach mal den Pfad zurückgeben.
Und dann schau Dir mal Items.text.

[himitsu]

Und bedenke, DeleteFile löscht keine Schreibgeschützten Dateien.

Also notfalls noch das Schreibschutzattribut zurücksetzten.

[SaFu]

Wie meinst er das den Pfad zurückgeben lassen.

[Blackheart]

Zbsp. So

Delphi-Quellcode:

ShowMessage(ExtractFilePath (ParamStr(0))+'Bilder\'+ a);

[SaFu]

Achso

Aber es werden so immernoch keine Dateien gelöscht.

[yörsch]

hast du es mal direkt probiert? also die datei mit pfad angegeben ?

Delphi-Quellcode:

DeleteFile('c:\Bilder\Bild1.bmp');

[C.Schoch]

Was zeigt die die MessageBox denn an?
Wenn der Pfad den die zuvor beschriebene MessageBox ausgibt stimmt kannst du mal nach DeleteFile den Fehlercode mit GetLastError holen. Für die Ausgabe eines Fehlertextes einfach noch SysErrorMessage(GetLastError) davor.

[SaFu]

ne noch nicht wäre ja auch nicht die funktion.

Muss die gewählte datei in der FileListBox Löschen können geht so aber nicht

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
a:= FileListBox1.FileName;
DeleteFile(ExtractFilePath (ParamStr(0))+'\Bilder\'+ a);
end;

[SaFu]

Es wird 2 mal der gleiche Pfad zurückgegeben ?????

Wie geht das denn :gruebel:

[Hawkeye219]

Hallo Sascha,

Zitat:

Zitat von Delphi-Hilfe zu TFileListBox.FileName

Die Eigenschaft FileName gibt den Namen der ausgewählten Datei im Dateilistenfeld einschließlich des Pfades an.

Du kannst den über FileListBox1.FileName ausgelesenen Dateinamen also direkt an DeleteFile übergeben.

Gruß Hawkeye

[SaFu]

Ok habs schon

war ja noch einfacher als ich gedacht habe sonnst immer alles so koplieziert und jetzt..... :wall: :wall: :wall:

Delphi-Quellcode:

{Bilder Löschen}
procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
a:= FileListBox1.FileName;
DeleteFile( FileListBox1.FileName);
end;

[SaFu]

Hab gerade nochmal ne frage

Wie kann ich abfragen ob die FileListBox leer ist und wenn ja message ausgeben hab es so geht aber nicht

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.<> '' then
  begin
    if Application.MessageBox('Wollen sie wirklich dieses Bild Löschen  ','Löschinformation',68)=6 Then
      begin
        a:= FileListBox1.FileName;
        DeleteFile( FileListBox1.FileName);
        ShowMessage('Datei:  ' +FileListBox1.FileName+'  wurde gelöscht');
        FileListbox1.Update;
      end
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
  end;
end;

[Daniel G]

Delphi-Quellcode:

if FileListBox1.Filename <> '' then //Filename vergessen

Und die Satzzeichen hast du in deinem Post auch vergessen... :wall:

[SaFu]

Ich steh heute voll aufm schlauch.

das FileName hate ich schon reingesetzt, hatte nur das end an die falsche stelle gestzt.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.FileName <> '' then
  begin
    if Application.MessageBox('Wollen sie wirklich dieses Bild Löschen  ','Löschinformation',68)=6 Then
      begin
        a:= FileListBox1.FileName;
        DeleteFile( FileListBox1.FileName);
        ShowMessage('Datei:  ' +FileListBox1.FileName+'  wurde gelöscht');
        FileListbox1.Update;
      end;
     end// hier gehört es hin
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
end;

aber danke nochmals für eure hilfe

[C.Schoch]

Des weiteren kannst du noch nicht davon ausgehen, dass die Datei wirklich gelöscht wurde!
Ich würd noch den Rückgabewert von DeleteFile abfragen

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.FileName <> '' then
  begin
    if Application.MessageBox('Wollen sie wirklich dieses Bild Löschen  ','Löschinformation',68)=6 Then
      begin
        a:= FileListBox1.FileName;
        if DeleteFile( FileListBox1.FileName) then // <- Hier geändert
        begin
          ShowMessage('Datei:  ' +FileListBox1.FileName+'  wurde gelöscht');
          FileListbox1.Update; // Das Updaten auch sparen wenn nichts gelöscht
        end;
      end;
     end// hier gehört es hin
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
end;

[SaFu]

ja stimmt ist besser so aber das updaten muss rein sonnst wir die ListBox nicht aktualliesiert