Hallo @ All
Ich weiss das es mehrere Threads über das kopieren von Dateien gibt allerdings konnte Ich nichts passendes finden.
Ich möchte folgendes Machen :
Ich brauche eine Funktion oder Procedure die mir aus dem Ordner A alle Dateien Inclusiv Unterordner nach Ordner B kopiert.
Das habe Ich auch schonmal gemacht, aber die Funktion soll mir nach jedem Schreiben der Datei einen Eintrag in eine Listbox einfügen, ob die Datei Fehlerfrei kopiert worden ist.
Und sollten die Dateien schon im Zielordner stehen, soll die Procedure ohne Nachfrage die alten Dateien Überschreiben.
Kann mir dabei jemand Helfen ?
Danke im Voraus.
Mfg
Mario
Hier mein Code für das Kopieren der Ordner, allerdings kommt bei diesem Code immer "Soll die Datei Überschrieben werden ?".
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| function CopyDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
Application.ProcessMessages;
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end; |
SHFILEOPERATION
