Directorio de copia de

Directorio de copia de

Directorio de copia de : Multi-millones de consejos para hacer su vida mas facil.

Como copiar un directorio entero
Colaborador: ANDRE HEINO ARTUS

> ¿alguien sabe como copiar un directorio entero ???
aplicacion
utiliza ShellAPI
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp FOS :TSHFileOpStruct
begin
& nbsp & nbsp con FOS empiezan
& nbsp & nbsp & nbsp & nbsp Wnd := Auto.Mango
& nbsp & nbsp & nbsp & nbsp wFunc := FO_COPY
& nbsp & nbsp & nbsp & nbsp pFrom := 'c:/idapi/*.*'
& nbsp & nbsp & nbsp & nbsp toma de fuerza := 'c:/test'
& nbsp & nbsp & nbsp & nbsp fFlags := FOF_NoConfirmMkDir
& nbsp & nbsp final
& nbsp & nbsp SHFileOperation(FOS)
fin
Andre H. Artus
[email protected]