Alle Dateien eines Verzeichnisses löschen ?!?

[sakura]

So, zwei kleine Fehlerchen sind da noch... waren die oben auch

Code:

Function DeleteAll(Dir, Files : string): Integer; 
var 
  SearchRec : TSearchRec; 
  ergebnis:integer; 
begin 
  ergebnis:=0; 
  if FindFirst(Dir+Files, faAnyFile, SearchRec) = 0 then 
  begin 
    DeleteFile([color=#ff0012]Dir+[/color]SearchRec.Name); 
    [color=#ff0012]ergebnis:=ergebnis + 1;[/color]
    while FindNext(SearchRec) = 0 do 
    begin 
      DeleteFile(Dir + SearchRec.Name); 
      ergebnis:=ergebnis + 1; 
    end; 
    [color=#ff0012]FindClose(SearchRec); [/color]
  end; 
  [s][color=#ff0012]FindClose(SearchRec); [/color][/s]
  Result:=ergebnis; 
end;

P.S. FindClose sollte nur ausgeführt werden, wenn FindFirst erfolgreich war. Einige Delphi-Versionen verursachen auf einigen OS sonst AV.

Du kannst in Delphi/Pascal anstatt mit Ergebniss gleich mit Result arbeiten.

......