[firebase-br] Problema com o GBAK

[Ricardo Pereira]

O que pode esta acontecendo?

Ao executar o comando no gbak n prompt esta apresentando um problema


A informação completa

  *Código:* C:\Program Files (x86)\Firebird\Firebird_2_1\bin>GBAK -B -USER
SYSDBA -PASSWORD masterkey kado-note:D:\Programas\Fontes\Delphi\Projeto
SISFinan\Database\SYSFINAN.FDB C:\Users\Kado\Desktop\BACKUP\BK291011.fbk
gbak: ERROR:I/O error for file "D:\Programas\Fontes\Delphi\Projeto"
gbak: ERROR: Error while trying to open file
gbak: ERROR: O sistema nÒo pode encontrar o arquivo especificado.
gbak:Exiting before completion due to errors

E estou executando no delphi atraves do codigo


  *Código:*
function ExecutarEEsperar(NomeArquivo, NomeParametro : String) : Boolean;
var
Sh: TShellExecuteInfo;
CodigoSaida: DWORD;
begin
FillChar(Sh, SizeOf(Sh), 0) ;
Sh.cbSize := SizeOf(TShellExecuteInfo) ;
with Sh do
begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpVerb := nil;
lpFile := PChar(NomeArquivo);
lpParameters:= PChar(NomeParametro);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@Sh) then
begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(Sh.hProcess, CodigoSaida) ;
until not(CodigoSaida = STILL_ACTIVE);
Result := True;
end
else
Result := False;
end;


E chamo assim
  *Código:* ExecutarEEsperar(GetEnvironmentVariable('PROGRAMFILES')+'\firebird\Firebird_2_1\bin\gbak.exe',
' -B -USER ' +
Usuario + ' -PASSWORD ' + Senha + ' ' + Caminho + ' ' + edtCaminho.Text +
'\BK' + FormatDateTime('DDMMYYYY', Now) +
'.fbk');