Bestimmte Dateien und Verzeichnise in einem Stammverzeichnis löschen

[t0mmy]

Kann mir da jemand weiter helfen?

Also ich will 2-Listboxen durchen und die jeweiligen Verzeichnisse und Files in einem Stammverzeichnis löschen.
Wie finde ich z.B: alle *.txt datei und kann diese löschen.

Weiters... wie such ich bestimmte Ordner auch wenn sie im Unterverzeichnissen drinnen sind.

[DeddyH]

FindFirst, FindNext sind Dein Freund. Oder Du installierst Dir meine Komponente TFileSearcher, dann musst Du das nicht selber erledigen.

[Popov]

Da ich zufällig ein Projekt offen habe in dem sich diese Funktion befindet:

Delphi-Quellcode:

procedure GetFileList(Path, Ext: String; List: TStrings);
const
  Attrib = faArchive + faReadOnly + faHidden;
var
  Search: TSearchRec;
begin
  if Path[Length(Path)] <> '\' then Path := Path + '\';

  if FindFirst(Path + '*' + Ext, Attrib, Search) = 0 then
  repeat
    List.Add(Path + Search.Name);
  until FindNext(Search) <> 0;

  FindClose(Search);
end;

[DeddyH]

Ganz so einfach ist es wohl nicht, Rekursion fehlt z.B., man addiert keine Bitmasken, Du prüfst nicht auf Länge 0 usw.

[Popov]

Zitat von DeddyH:

Ganz so einfach ist es wohl nicht, Rekursion fehlt z.B., man addiert keine Bitmasken, Du prüfst nicht auf Länge 0 usw.

Ich habe mal vor Jahren den Fehler gemacht mich bei genau dieser Funktion auf eine Diskussion einzulassen, die von der anderen Seite vereinfacht ausgedrückt so lautete: deine Funktion ist falsch, auch wenn sie aus der OH geradezu abgetippt ist. Auch wenn es in der OH so steht ist es ganz anders gemeint. Denn wenn man deine Funktion nimmt und der Anton ein Bier trinkt, dann könnte das passieren. Also studiere vorher die API wie es gemeint ist usw.

Im OH Beispiel wird auch addiert und nicht auf Länge 0 geprüft usw. Wenn das Beispiel falsch ist, dann biegt der Fehler bei Borland bzw. Nachfolger.

Was die Rekursion angeht, ok, wie gesagt, ich habe diese Funktion so aus meinem Projekt kopiert und da brauche ich es nicht.

[DeddyH]

Soll heißen: wenn Du ein Beispiel liest, das suboptimal programmiert ist, übernimmst Du es, weil es ja von Borland/Inprise/CodeGear/Embarcadero stammt? Interessante Einstellung.