dateien von D: nach C:\backup kopieren

[wolfgang_SV]

ich verwende eine Funktion aus der ShellAPI-Unit.
Auch alle Unterverzeichnisse werden kopiert.

Delphi-Quellcode:

  function copydir(const fromdir,todir : string):boolean;
    var fos : tshfileopstruct;
    begin
    zeromemory(@fos,sizeof(fos));
    with fos do                      
      begin
      wfunc:=FO_COPY;
      fflags:=FOF_FILESONLY or FOF_NOCONFIRMATION;
      pfrom:=pchar(fromdir+#0);
      pto:=pchar(todir);
      end;
    result:=(0=ShFileoperation(fos));
    end;