Ordner kopieren

[MCXSC]

Hallo!

Wie kann ich in Delphi 6 komplette Ordner kopieren?

Copy ('C:\Alt\','D:\Alt\')

funktioniert nicht....

[omata]

Schau doch mal meine Antwort hier...

http://www.delphipraxis.net/internal...595&highlight=

[Nicodius]

Delphi-Quellcode:

var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
Begin
  fillChar( OpStruc, Sizeof(OpStruc), 0 );
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, 'd:\brief\*.*' );
  StrPCopy( tobuf, 'd:\temp\brief' );
  With OpStruc DO Begin
    Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted:= False;
    hNameMappings:= Nil;
    lpszProgressTitle:= Nil;
  end;
  ShFileOperation( OpStruc );
end;

[alcaeus]

Hi Nico,

code ist gut und recht, aber vielleicht solltest du erklären wo du den Code gefunden hast, und wie man ihn verwendet.

Greetz
alcaeus

[Nicodius]

hier gefunden