Dateien und Unterordner von einem Ordner in anderen Ordner K

[renekr]

Hi @,
WOW so viel Resonanz.
Vielen 'Dank.

Ich habe derzeit ein bisschen experimentiert und folgendes programmeirt.

Delphi-Quellcode:

function CopyDir_without_Root(const fromDir, toDir: string): Boolean;
var
fo: TSHFileOpStruct;
buffer  : array[0..4096] of char;
p       : pchar;
begin
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
StrECopy(p,Pchar( fromDir+'\*.*')); //this is folder that you want to copy
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd    := form1.Handle;
Fo.wFunc  := FO_COPY;
Fo.pFrom  := @Buffer;
Fo.pTo    := PChar(toDir); //this is where the folder will go  Fo.fFlags := 0;

Result := (0 = ShFileOperation(fo));
end;

Das ist fast ähnlich wie das letzte Posting.

Vielen Lieben Dank.