Répertoire de la copie de

Repertoire de la copie de

Repertoire de la copie de : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour copier un repertoire entier
Intervenant: ANDRE HEINO ARTUS

> quelqu'un sait comment faire pour copier un repertoire entier ???
application
utilise ShellAPI
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp FOS :TSHFileOpStruct
begin
& nbsp & nbsp avec FOS do begin
& ! & ! & ! & nbsp Wnd := Self.Poignee
& ! & ! & ! & nbsp wFunc := FO_COPY
& ! & ! & ! & nbsp pFrom := 'c:\idapi\*.*'
& ! & ! & ! & nbsp prise de force := 'c:\test'
& ! & ! & ! & nbsp fFlags := FOF_NoConfirmMkDir
& nbsp & nbsp fin
& nbsp & nbsp SHFileOperation(FOS)
fin
Andre H. Artus
[email protected]