F�rum Ajuda para copiar arquivo com op��es (usando shell) #218972

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

Curtir t�pico

+ 0

Responder