Como pegar um arquivo e jogar em outro local?

[rafaeloliveira83 0]

Estou criando um sistema de Backup e Restauração.

 

Nele utilizo um Edit1 e um Botao1:

 

Uso um OpenDialog1 para localizar o arquivo da pasta do meu programa.

 

 // Extrai o arquivo de onde está instalado a aplicação
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;

 

Criei um DirectoryListBox1 e um DriveComboBox1, mas não consigo jogar o arquivo que eu peguei no OpenDialog1 no local escolhido.

 

Ou escolher o diretório via botão também manualmente.

 

Já tentei de todas as formas e não consegui.

[adrianno 7]

1º você cria 2 variaveiS

 

VAR ORIGEM:STRING;

VAR DESTINO:STRING;

 

e diga que a variavel DESTINO é = OpenDialog1.filename

e que a variavel ORIGEM é = onde você quer... tipo ExtractFilePath(Application.ExeName) + '/pasta/' + DESTINO ; ( isso vai gravar ele no diretorio do programa e na pasta que quiser em "pasta")

 

depois da um

if OpenDialog1.Execute then 
CopyFile(PChar(ORIGEM), PChar(DESTINO), true)