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