Ordner Kopieren funzt net richtig

[DeddyH]

Ich habe mir das jetzt nicht im Detail angeschaut, aber 2 Dinge sind mir direkt aufgefallen:

Delphi-Quellcode:

if not FileExists (sNachPfadangabe + 'Privat_Mobil\') then
    begin
     ForceDirectories(sNachPfadangabe + 'Privat_Mobil\');

Wäre DirectoryExists() hier nicht angebrachter?

Delphi-Quellcode:

  with fos do
  begin
    wFunc  := FO_COPY;
    wnd    := Application.Handle;
    fFlags := 0; //wozu diese Zeile?
    fFlags := FOF_NOCONFIRMATION; //  keine bestätigung zum überschreiben