Hola quizas ya lo resolvistes pero esto funciona de diez
usando el dbbackup
String v_base
String v_pat
string v_comando
String v_directory
long v_ruta
//Ruta Donde Guardar el BackUp
v_directory=gu_ext_func.uf_GetCurrentDirectory()
v_pat =v_directory+"\BackUp"
v_base="dbn="+base
v_comando =&
'dbbackup -c "eng=Gestocksmall;"'+v_base+'";uid=dba;pwd=sql" -y "'+ v_pat+'"'
v_ruta = run(v_comando)
If v_ruta <> 1 then
Messagebox('Aviso - Error de ejecución','Comando BACKUP no se pudo ejecutar con éxito.~rOperación Cancelada',exclamation!)
Else
Messagebox('Aviso - Exito de ejecución','Comando BACKUP se pudo ejecutar con éxito.~r Operación Concluida',exclamation!)
End If