Fórum Copiar diretórios com os respectivos subdiret´rios #236672
08/06/2004
0
Preciso executar a cópia de um diertório que tem vários subdiretórios.
O eu posso utilizar o CopyFile e ir localizando os subdiretórios.
Mas existe algum comando que eu envie somente o diretório raiz e ele copie os arquivos e seus subdiretórios?
Obrigado
Eduprp
Curtir tópico
+ 0Posts
08/06/2004
Matheus_venancio
você pode usar este procedimento:
[b:a3f2d61fcb]procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(´D:\MVS\SysAdm\datasystem´); //Origem
pTo := PChar(´C:\Teste\´); //Destino
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;[/b:a3f2d61fcb]
Abraço,
Matheus Venâncio
Gostei + 0
09/06/2004
Matheus_venancio
Gostei + 0
09/06/2004
Matheus_venancio
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)