Mega Code Archive
Copy directory
<![CDATA[
How to copy an entire directory
Contributor: ANDRE HEINO ARTUS
> Does someone know how to copy a entire directory ???
implementation
uses ShellAPI;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
FOS :TSHFileOpStruct;
begin
with FOS do begin
Wnd := Self.Handle;
wFunc := FO_COPY;
pFrom := 'c:\idapi\*.*';
pTo := 'c:\test';
fFlags := FOF_NoConfirmMkDir;
end;
SHFileOperation(FOS);
end;
Andre H. Artus
andre@oas.co.za
]]>