Copiar Arquivo com SHFileOperation

Delphi

09/09/2003

Olá pessoal,
achei o código abaixo no fórum para copiar arquivos e adaptei ao meu aplicativo...
acontece que gostaria de copiar mais de um arquivo, e eles estão em diretórios diferentes.
tenho que repetir todo o código para cada arquivo ou tem alguma forma de incluir mais de um arquivos no [i:5d6f12c9ac]pFrom[/i:5d6f12c9ac] ??? Ou ainda há alguma outra maneira ???

var
  Dados: TSHFileOpStruct;
[b]........[/b]

with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(´C:\Teste.db´);
pTo := PChar(´d:\´);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);



Rubensgalvanijr

Rubensgalvanijr

Curtidas 0
POSTAR