Löschen von Dateien

[SaFu]

Hi ab mal ne Frage.

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

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
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 ?
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;