duvida com run
Enviado: 27 Jul 2020 10:43
ola a todos
uso o xharbour free versao 1.2.3 com postgresql, crio um arquivo .BAT para fazer a copia do banco de dados, só que quando vou usar o run ele não executa o arquivo .bat
uso o xharbour free versao 1.2.3 com postgresql, crio um arquivo .BAT para fazer a copia do banco de dados, só que quando vou usar o run ele não executa o arquivo .bat
Código: Selecionar todos
procedure backup
local cSenha,cBanco,nPorta,cUsuario,cDestino
cSenha := "00000000"
cBanco := "xxxxxxxx"
nPorta := 5432
cUsuario := "postgres"
cDestino := "e:\backup_sistema"
nHandle=fcreate("backup.bat",0)
fwrite(nHandle,"SET PGPASSWORD="+cSenha+hb_osnewline())
fwrite(nHandle,"SET PGDATABASE="+cBanco+hb_osnewline())
fwrite(nHandle,"SET PGPORT="+str(nPorta)+hb_osnewline())
fwrite(nHandle,"SET PGUSER="+cUsuario+hb_osnewline())
fwrite(nHandle,"SET DIRETORIO_BACKUP="+cDestino+hb_osnewline())
fwrite(nHandle,[for /f "tokens=1,2,3,4 delims=/ " %%a in ('DATE /T') do set hoje=%%b%%c%%d]+hb_osnewline())
fwrite(nHandle,"E:\ArquivosDeProgramas\PostgreSQL\9.5\bin\pg_dump --host=191.7.142.139 --format custom --blobs --verbose --file=%DIRETORIO_BACKUP%\bck_%time:~0,2%%time:~3,2%%date:~0,2%%hoje%.backup_postgresql"+hb_osnewline())
run("backup.bat")
return