Como mover arquivos pelo Delphi? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como mover arquivos pelo Delphi?

 

É 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;
Facebook Comments

Posts Relacionados

  • Administrador
  • 1.008 views
  • 0 comentários
  • 29 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados