Dateien datumsabhängig kopieren

[nahpets]

Hallo,

auf die Schnelle kann ich im Quelltext nix entdecken, was sich als arge Bremse auswirken könnte.
Mach Dir auf das Formular mal noch 'ne Statusbar als SimplePanel und weise dann SimpleText am Anfang von GetAllFiles mask zu, dahinter noch ein Application.ProcessMessages, dann kannst Du sehen, wielange ungefähr für 'ne Datei gebraucht wird.
Bei der riesigen Datenmenge kann das Auflisten der Dateien auch im Explorer... schon mal 'ne Weile dauern.

Eventuell ergänzt Du Dir dasshowmessage('Beim Kopieren der letzten Datei ist ein Fehler aufgetreten. Der Vorgang wird abgebrochen.'); noch um den Namen der Datei, bei der der Fehler auftritt.
Hinter dem Showmessage verlässt Du die Routine mit Exit, d. h.: FindClose wird nicht aufgerufen.
Da fällt mir auf: Für das erste FindFirst fehlt das FindClose, dass könnte durchaus Auswirkungen haben, beobachte mal im Taskmanager, wie sich der Speicherverbrauch (incl. Handles, Threads...) während des Programmlaufes verhält, wächst da irgendwas permanent, wenn auch wenig an?