DeleteFiles + FindNext

[Ghostleader]

Ich möchte alle *.txt Dateien in einem bestimmten Ordner in C:\... löschen.
Mein Code:

Delphi-Quellcode:

procedure TFmDeleteVocabularies.BtDeleteVoksClick(Sender: TObject);
var

  //Variablen für die Schleife
    SearchRec: TSearchRec;
    r: Integer;
  //Variablen Ende
begin
   MeDelVoks.Clear;
   MeDelVoks.Lines.Add('Folgende Dateien wurden gefunden: ');

   //Schleife
     r := FindFirst('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT', faAnyFile,SearchRec);
     while r = 0 do
      begin
       MeDelVoks.Lines.Add(SearchRec.Name);
       DeleteFile(SearchRec.Name);
       r := FindNext(SearchRec);
      end;
     FindClose(SearchRec);
     ShowMessage('Dateien wurden gelöscht');
  //Schleife Ende
end;

Mein Problem:
Es geschieht einfach nichts! Pfad hab ich schon überprüft. Kann mir jemand helfen?

Mfg Ghost

[Luckie]

Warum überprüfst du den Rückgabewert von DeleteFile nicht? Und guck doch mal was in SearchRec.Name steht. dann findest du deinen Fehler auch selber.

Delphi-Quellcode:

if not DeleteFile(...) then
  ShowMessage(SysErrorMessage(GetLastError));

Und dann guck mal, was da steht.

[Ghostleader]

Danke für die schnelle Antwort. "System kann die Datei nicht finden."
Der Dateipfad stimmt! Hat es dann etwas damit zu tun, dass ich nicht SearchRec.Name benutzen darf?
Aufgelistet wird SearchRec.Name so zB.: Hallo.TXT ...

Wie überprüft man den SearchRec.Name? Das ist doch der Name der gefundenen Datei, wenn ich micht nicht irre.?

[Luckie]

Richtig, der Name der Datei. Und wo ist der Pfad?

[Ghostleader]

Ich habs so verstanden:

Delphi-Quellcode:

r := FindFirst('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT', faAnyFile,SearchRec);
<-- Hier gibt man den Pfad an

while r = 0 do
      begin
       MeDelVoks.Lines.Add(SearchRec.Name);
       DeleteFile(SearchRec.Name);


     {Error Code?}
          if not DeleteFile(SearchRec.Name) then
          ShowMessage(SysErrorMessage(GetLastError));
<-- Hier entscheidet man was mit jeder gefundenen Datei geschieht.

     {Weiter zur nächsten Datei}
       r := FindNext(SearchRec);
      end;

Also oben hab ich den Pfad angegeben und zwar so, das alle Textdateien gemeint sind.
War das falsch?

[Luckie]

Und wo ist er bei DeleteFile? Die Fehlermeldung hat dir doch schon gesagt, dass die Datei nicht gefunden wurde. Rat mal warum.

[Ghostleader]

Ja deswegen hab ich den Pfad doch oben angegeben. Damit er für ALLE Dateien gilt.

Muss ich den Code so ändern?:
DeleteFile('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT');

[Luckie]

Zitat von Ghostleader:

Ja deswegen hab ich den Pfad doch oben angegeben. Damit er für ALLE Dateien gilt.

Und DeleteFile ist ein Hellseher und weißt automatisch, wo die zu löschende Datei sich befindet?

Knapp da neben ist auch vorbei. Probiere es aus.

[Ghostleader]

DeleteFile('C:\voctester_tmp\Vocabularies\Deutsch\ *.TXT' +SearchRec.Name);?

Edit: nein klappt nicht ...

[MaToBe]

DeleteFile('C:\voctester_tmp\Vocabularies\Deutsch\' +SearchRec.Name); €: Dein
DeleteFile('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT' +SearchRec.Name); würde z.B. C:\voctester_tmp\Vocabularies\Deutsch\*.TXTTest.tx t ausgeben...

€²: Wir hams wohl beide verraten ;D