Ajuda para copiar arquivo com opções (usando shell)

Delphi

08/03/2004

Fala Galera!

Eu estou usndo essa rotina para copiar arquivos de uma pasta para outra. O que eu quero saber é se tem como eu já deixar programado que é para sobrescrever os arquivos caso eles já existam. Eu não quero q o programa pergunte isso para o usuário.

var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(´c:\ateste\origem\*.*´);
pTo := PChar(concat(´c:\ateste\destino\´+edit1.text+´\´));
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;



Valew!!!


Bueno

Bueno

Curtidas 0
POSTAR