É necessário estar declarado FileCtrl na seção uses,
em versões unicode declare Vcl.FileCtrl;
Função do Delphi: MoveFile(local original, novo local).
Retorno: LongBool.
Exemplos de uso:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | procedure TForm1.Button1Click(Sender: TObject); begin // Arquivos estáticos if MoveFile('D:\teste\teste.txt', 'D:\teste2\teste.txt') then ShowMessage('Arquivo movido com sucesso!') else ShowMessage('Erro ao mover arquivo!'); // A partir de outro componente ou variáveis. if MoveFile(PChar(Edit1.Text), PChar(Edit2.Text)) then ShowMessage('Arquivo movido com sucesso!') else ShowMessage('Erro ao mover arquivo!'); // Exemplo de erro ao mover if MoveFile('D:\teste\teste_erro.txt', 'D:\teste2\teste_erro.txt') then ShowMessage('Arquivo movido com sucesso!') else ShowMessage('Erro ao mover arquivo!'); end; |
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
