Dateien in einem Ordner löschen

[kagi3624]

Zitat von haentschman:

Moin...

Möööp... try/finally (List) ist hoffentlich kein Femdwort.

Ne, ich hab alles durch 14 tausend Dateien von zwei Rechnern löscht er ohne Probleme. Wenn ich das Programm aber auf einem dritten Rechner starte (durch automatische Dienste) dann bleibt er immer bei der hälfte oder so hängen. Allerdings zum Schluß, wenn etwa nur 200 dateien sind, dann löscht er alle. Also ich kann es mir nicht erklären, an meinem Code liegt es nicht...wobei...ich habe Delphi6

[haentschman]

Moin...

Zitat:

List:=TStringList.Create;

...war darauf bezogen. Ich weis ja nicht, welche QT Version bei dir aktuell ist.

Delphi-Quellcode:

procedure DeleteFilesInDirectory(const Path: string);
var 
  I: Integer;
  R: Integer;
  SR: TSearchRec; 
  List: TStringList;
begin
   List := TStringList.Create;
   try
     R := FindFirst(Path + '\*.*', faAnyFile, SR);
     while R = 0 do 
     begin
       if (SR.Attr and faDirectory <> faDirectory) then 
       begin
         List.Add(Path + '\' + SR.Name);
       end;
       R := FindNext(SR);
     end;
     FindClose(SR);

     for I := 0 to List.Count - 1 do 
     begin
       DeleteFile(List[I]);
     end;
   finally
     List.Free;
   end;
end;

[hhcm]

Zitat von kagi3624:

Wenn ich das Programm aber auf einem dritten Rechner starte (durch automatische Dienste) dann bleibt er immer bei der hälfte oder so hängen. Allerdings zum Schluß, wenn etwa nur 200 dateien sind, dann löscht er alle.

Sind die Dateien ggf. in Benutzung? Das kann z.B durch einen Virenscanner oder automatische Thumbgenerierung sein.
Wenn ich Dienst lese kann es auch sein, dass der Dienst keine Berechtigung hat die Datei zu löschen.