Copiando arquivos

Copiando arquivos

  julho 17, 2017    Ana Paula Novello

---

CopyFile(Pchar(AOrigem), Pchar(ADestino), False);

• AOrigem: Caminho do arquivo a ser copiado;
• ADestino: Caminho do novo arquivo de destino;

Parâmetro do tipo boolean que define se o processo de cópia deve ser interrompido e uma falha apresentada caso o arquivo de destino já exista (valor True). Caso seja passado o valor False, o arquivo de destino será sobrescrito, caso exista.

Exemplo

procedure TFSistema.BtnCopiarClick(Sender: TObject);
begin
     if CopyFile('C:\Teste.txt', 'C:\Destino\Teste.txt', True) then
          ShowMessage('Arquivo movido com sucesso!')
     else
          ShowMessage('Erro ao mover arquivo!');
end;