Kopieren von Ordner

[Progman]

z.B:

Delphi-Quellcode:

var
  

procedure CopyVerzeichnis(Source, Dest);
var  files : string;
     shellinfo: TSHFILEOPSTRUCT;
     Abbruch: Boolean;
begin
  files :=Source + #0;
  files := files + #0;
  with shellinfo do begin
     wnd     := Form1.handle; //hier dein Form eintragen
     wfunc   := FO_COPY;
     pFrom   := PChar(files);
     pTo     := PChar(Dest);
  end;
  if SHFileOperation(shellinfo)=S_Ok then
   ShowMessage('Alle Dateien wurden kopiert!')
  else
   ShowMessage('Die Dateien wurden nicht oder nicht vollständig kopiert!');
end;