procedure TForm1.BtnCopiarClick(Sender: TObject);
const
Arq_Original = 'C:\teste.txt';
Arq_Destino = 'C:\Delphi\teste.txt';
begin
if FileExists(Arq_Original) then
begin
if not FileExists(Arq_Destino) then
begin
if CopyFile(Arq_Original, Arq_Destino, True) then
ShowMessage('Cópia realizada com sucesso.')
end
else
begin
if MessageDlg('Já existe arquivo como o mesmo nome, deseja substituir o arquivo?', mtConfirmation,[mbyes,mbno],0) = mryes then
begin
if CopyFile(Arq_Original, Arq_Destino, False) then
ShowMessage('Arquivo substituído com sucesso.')
end
else
ShowMessage('#Error# - Não foi possível realizar a cópia.');
end;
end;
end;
Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】
Nenhum comentário:
Postar um comentário