Moin Michl,
bei Deinem Aufbau geht Dir immer der erste gefundenen Eintrag verloren, da Du nach erfolgreichen FindFirst (das den ersten Eintrag liefert) gleich den nächsten abforderst (FindNext), ohne den ersten zu verarbeiten.
Ausserdem willst Du, ohne Prüfung, alles kopieren, was FindFirst findet. Dies können ausser Dateien aber auch Verzeichnisse sein, ebenso wie die Standardeinträge in Verzeichnissen, nämlich . und ..
Such' doch mal hier im Forum nach FindFirst. Du müsstest einige Fundstellen bekommen, die Dir noch mehr Einzelheiten verraten.
Zitat von
Mitchl55:
... und erstellt Delphi nicht vorhandene Verzeichnisse automatisch?
In diesem Falle, Aufruf der
API Funktion CopyFile, werden Verzeichnisse nicht automatisch erstellt. Du könntest SHFileOperation verwenden. Diese Funktion versucht nicht existierende Verzeichnisse zu erstellen.
Dazu gibt es auch schon einen Eintrag hier in der Code Library, die den Umgang mit SHFileOperation erleichtert.
Um selber Pfade (und nicht nur einzelne Verzeichnisse zu erstellen) stellt Delphi die Funktion ForceDirectories zur Verfügung.