Fórum pegar da pasta #476065

galera como faço para pegar o nome na pasta
ex
D:\backup\backup realisado as 16 horas 32 minutos , sexta-feira, 11 de abril de 2014
D MEU DISCO
Backup = uma pasta
backup realisado as 16 horas 32 minutos , sexta-feira, 11 de abril de 2014 = outra pasta

usando o opem dialog ele pega o nome do arquivo mas querocopiar toda a pasta

if OpenDialog1.Execute then
begin
arquivo := OpenDialog1.FileName;
end
else
begin
ShowMessage('Escolha algum arquivo, para executar a restauração.');
exit;
end;
btn_restaurar.Caption := 'AGUARDE...';
auxiliar := 'cmd.exe /c "mysql -u root ';
auxiliar := auxiliar + 'basededados < ' + arquivo + '"';
auxiliar := auxiliar + ' --result-file=D:\backup--databases ' + edt_banco_de_dados.Text ;

//Memo1.Lines.Add(auxiliar);

if not backup(auxiliar) then
ShowMessage('RESTAURAÇÃO NÃO FOI PROCESSADA!')
else
begin
ShowMessage('Restauração Realizada!');
ShowMessage('SAIA DO SISTEMA E ENTRE NOVAMENTE');
btn_restaurar.Caption := 'Restaurar';
end.
o código acima pega somente o arquivo tem como pegar a pasta