Ordner Kopieren funzt net richtig

[SaFu]

Zitat von 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?

Wenn ich das mit "DirectoryExists" schreibe, dann geht garnichts mit Kopieren deswegen "File"
Von der Logig her hast du recht wieso, weshalb, warum keine Ahnung.

Zitat von DeddyH:

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

Wenn ich ganz erlich bin habe ich das hier geklaut und weis net warum ich das reingeschrieben habe dann ist es wohl oft genug hier falsch gemacht worden

habe gedacht zu Terminieren aber das kommt ja ganz unten in der Function.

Also das Klappt immer noch net hat keiner ne ahnung wie ich das lösen könnte????