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

Delphi-Quellcode:

DeleteFile('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT');

[Luckie]

Zitat:

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]

Delphi-Quellcode:

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

€: Dein

Delphi-Quellcode:

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

[Klaus01]

.. ohne das *.TXT darin sollte es funktionieren.

Grüße
Klaus

[Luckie]

Nicht raten! Nachdenken!

Was kommt dabei wohl raus:

Delphi-Quellcode:

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

Was steht in SearchRec.name drin? Und wie sieht deine zusammengebastelte Zeichenkette dann aus?

Zitat:

Zitat von Klaus01

.. ohne das *.TXT darin sollte es funktionieren.

KLAUS!!! Bist du wohl ruhig?

[Ghostleader]

Delphi-Quellcode:

     r := FindFirst('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT', faAnyFile,SearchRec);
     while r = 0 do
      begin
       MeDelVoks.Lines.Add(SearchRec.Name);
       DeleteFile(SearchRec.Name+'C:\voctester_tmp\Vocabularies\Deutsch\');


     {Error Code?}
          if not DeleteFile(SearchRec.Name) then
          ShowMessage(SysErrorMessage(GetLastError));

Klappt aber nicht.

Danke euch allen ich suche morgen weiter ;)

@Luckie:
Danke für deine Geduld und deine Strategie ;D

[MaToBe]

okay nochmal:

SearchRec.Name ist der Name der Datei, die zum löschen gefunden wurde, und zwar ohne Pfad davor.

=> Schlussfolgerung: Du brauchst die Angabe des Pfadest und danach dann noch den Namen der Datei.

[Klaus01]

wie sind denn Dateien zu finden:

Pfad + Dateiname
oder
Dateiname + Pfad ?

So spät ist es in Deutschland doch noch nicht.

Grüße
Klaus

[Luckie]

Zitat:

Zitat von Ghostleader

Delphi-Quellcode:

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

Klappt aber nicht.

So langsam tut es weh. Wo steht denn der Dateiname? Am Anfang vom Pfad oder am Ende vom Pfad?

Zitat:

Danke euch allen ich suche morgen weiter ;)

nix da. das machen wir jetzt fertig.

Zitat:

@Luckie:
Danke für deine Geduld und deine Strategie ;D

Du strapazierst sie aber auch zu Genüge.

[Ghostleader]

Ist ja in Ordnung ich ärgere mich schon über meine eigene Dummheit! Ich hab bis zum Ende nicht verstanden das in SearchRec.Name der Name der Datei + .TXT steht. Und dann musste ich schnell weg sodass ich nicht mal mehr den Pfad und den Namen in eine passende Reihenfolge geschrieben hab O.o! Ich hoffe ich hab eurer Geduld nicht allzusehr geschadet ;D Mfg Ghost

[Luckie]

Hast du es jetzt hinbekommen?

[Ghostleader]

Ich bin im Moment nicht in der Lage es zu probieren aber in der Theorie habe ich es so verstanden: DeleteFile('C:\'+SearchRec.Name) Das könnte ergeben: C:\Hallo.TXT! Edit: In SearchRec.Name steht der Name der Datei und die Endung. Mit GetLastError bekommt man den Wert von DeleteFile (True/False) zurück.

[MaToBe]

richtig

[OT]
fands sau lustig wie sich zeitweise 3 personen drum gekloppt ham's dem TE richtig beizubringen und die Antworten im Sekundentakt rausgehaun ham ;D
[/OT]

[Luckie]

Richtig. Aber in welchen Pfad liegt deine Datei, die du löschen willst?

[Ghostleader]

öhm mein eigener Pfad? Das war doch C:\voctester_tmp\Vocabularies...\ ! Oder meinst du wieder etwas anderes als ich denke?

[Luckie]

Richtig. In dem Pfad wurde die Datei gefunden. Und jetzt kombinieren wir einfach die bisher gewonnenen Erkenntnisse:
1. DeleteFile braucht den kompletten Pfad und den Dateinamen
2. In SearchRec.Name steht der Dateiname
3. Dein Pfad ist C:\voctester_tmp\Vocabularies...\
4. Der Dateiname steht am Ende vom Pfad
5. Zeichenketten verbindet man mit einem +
Wie muss jetzt der Aufruf von DeleteFile aussehen?

[Ghostleader]

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

[alzaimar]

:cheer:

[Luckie]

Es geschehen noch Zeichen und Wunder. :cheer:

[Ghostleader]

danke.

[Luckie]

Jetzt brauche ich aber erstmal eine Pause.