pegar da pasta

Delphi

11/04/2014

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
Jose Silva

Jose Silva

Curtidas 0

Respostas

José Maciel

José Maciel

11/04/2014

Para pegar o caminho inteiro do arquivo com o TOpenDialog, você deve utilizar a seguinte instrução:

OpenDialog1.GetNamePath + OpenDialog1.FileName


Isso concatenará o caminho do diretório com o nome do arquivo.
GOSTEI 0
Jose Silva

Jose Silva

11/04/2014

maciel aonde eu declaro essa instrução?
{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; }
GOSTEI 0
Jose Silva

Jose Silva

11/04/2014

alguem pode me ajudar
GOSTEI 0
Nelson Santos

Nelson Santos

11/04/2014

Desenvolva softwares 3D em Delphi 7
www.3dsistemas.com.br
GOSTEI 0
POSTAR