Copiar diretórios com os respectivos subdiret´rios
Ola colegas
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
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
Curtidas 0
Respostas
Matheus_venancio
08/06/2004
Olá...
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
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
Matheus_venancio
08/06/2004
Olá...
você pode usar este procedimento: Declare ShellINI nas Units
[b:b7bc846419]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:b7bc846419]
Abraço,
Matheus Venâncio
GOSTEI 0
Matheus_venancio
08/06/2004
[quote:ab2dd640fc=´Matheus_Venancio´]Olá...
você pode usar este procedimento: Declare ShellAPI nas Units
[b:ab2dd640fc]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:ab2dd640fc]
Abraço,
Matheus Venâncio
[/quote:ab2dd640fc]GOSTEI 0