Forum: Object-Pascal / Delphi-Language
by kagi3624,
15. Jul 2020
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
Forum: Object-Pascal / Delphi-Language
by kagi3624,
15. Jul 2020
Nein, natürlich nicht :stupid:
Forum: Object-Pascal / Delphi-Language
by kagi3624,
14. Jul 2020
hallo, mit folgender Funkion möchte ich alle Dateien in einem Ordner löschen, die selbst keine Ordner sind.
SearchPattern := IncludeTrailingPathDelimiter(aPath) + '*.*';
if FindFirst(SearchPattern, faAnyFile, Rec) = 0 then begin
try
repeat
if Rec.Attr and faDirectory = 0 then begin
delete(aPath+Rec.Name);