Fórum Socorro! Preciso de Ajuda para copiar arquivos #158746

Talvez este código possa ajudar.

Dica da DTDelphi:

366 - Copiando arquivos usando o Shell do Windows
Coloque no uses: ShellApi

{ - Coloque um botão no form e altere o evento OnClick deste botão conforme abaixo:}
procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(´c:\teste\*.txt´); // Copia os arquivos de Extensão TXT
pTo := PChar(´a:\´); // Para a unidade A:
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;

Observações:

Esta forma de copiar arquivos oferece várias vantagens. O Shell avisa para pôr um próximo disco quando o atual estiver cheio. Mostra a barra de progresso. Pode copiar arquivos usando máscara de uma forma extremamente simples.

Valeu Marcelo, muito obrigado pela dica. :P

Grato,

Renilson.