Ordner Kopieren funzt net richtig

[SaFu]

Schönen abend.

Was mach ich falsch ich versuche einen Ordner in einen Anderen Ordner zu Kopieren aber das funzt net so richtig

Hiermit versuche ich von meinem USB Stick einen bestimmten Ordner in ein anderes Verzeichnis zu Kopieren.

Delphi-Quellcode:

function CopyFiles (const fromDir, toDir: string): Boolean;
var  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    wnd    := Application.Handle; //    fFlags := FOF_FILESONLY;
    fFlags := 0;
    fFlags := FOF_NOCONFIRMATION; //  keine bestätigung zum überschreiben
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir + #0)
  end;
  Result := (0 = ShFileOperation(fos));
end;

CopyFiles (sVonPfadangabe + 'Dokument_Mobil\' + ExtractFileName(ShellTreeView4.Path),Form1.ServerPfad + Dokumente\ +ExtractFileName(ShellTreeView4.Path)');

Aber irgenwie wird der Ordner nicht dahin Kopiert wo ich ihn haben will

Sagen wir mal ich Kopiere
Dokument_Mobil\Privatedokumente nach

Form1.ServerPfad + Dokumente\Privatedokumente Wenn der Ordner Privatedokumente nicht vorhanden ist wird er Kopiert, ist er vorhanden wir der Ordner Privatedokumente in Privatedokumente Kopiert, der soll aber überschrieben werden.

Das hab ich so in der Funktion hinterlegt.

Gruß Sascha