DBF en otro directorio q no sea el raiz del proyecto

[Jesus Semper]

Yo hago lo siguiente:
1º- En el directorio de la aplicacion cre un fichero que es facil de
modificar. CONFIGURA.INI que podria contener:
[DATOS]
DirDatos="C:MSEM_D"
DirImgAr="D:_CATALOGO 2008Tarifa 2008"
[VER]
Escala=120
2º - Al empezar el programa creo variables a las que puedo acceder desde
cualquier parte del programa:
//---------------------------------------------------------- ---
AppData:AddData("cDirDbf", "") // Directorio de datos
AppData:AddData("cDirImg", "") // Directorio de imagenes de articulos
//---------------------------------------------------------- ---
y las cargo con los datos de configura.ini:
//---------------------------------------------------------- ---
WITH OBJECT oIni := TIni():New()
// Fichero configuracion a leer (en directorio actual)
:cFilename := ".Configura.ini"
AppData:cDirDbf := :GetEntry("DATOS", "DirDatos", "¿vacio?")
AppData:cDirImg := :GetEntry("DATOS", "DirImgAr", "¿vacio?")
Application:nScale := :GetEntry("VER", "Escala", 100) // Esto es
para escala de visualizacion
END
//---------------------------------------------------------- ---
3º - Asigno mediante SET DEFAULT y PATH los directorios de los datos.
//---------------------------------------------------------- ---
IF IsDir(AppData:cDirDbf)
SET DEFAULT TO &(AppData:cDirDbf)
ELSE
MsgInfo("Error Directorio Datos:" + AppData:cDirDbf)
ENDIF
IF IsDir(AppData:cDirImg)
SET PATH TO &(AppData:cDirImg)
ELSE
MsgInfo("Error Directorio Imagenes:" + AppData:cDirImg)
ENDIF
//---------------------------------------------------------- -----
A partir de ahora por defecto cualquier tabla se abre del directorio
definido como DEFAULT. Si no aparece aqui lo busca en el directorio definido
como PATH (aqui puedes poner mas de uno separado por ; y buscara el fichero
en ese orden.)
Tambien puedes poner la direccion completa del fichero precedido de unidad y
directorio pero es lo menos flexible.
"Duilio" <duiliobacalorimap@gmail.com> escribió en el mensaje
news:4aaab8be$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola como estan quisiera saber como se puede tener dbfs q se utilizan en
> un proyecto fuera del raiz del mismo (sin usar dataset o datasources) . Ya
> que tengo mas de un proyecto q utiliza cierto tipo de dbfs y si no tengo q
> replicarlas en todos los raices de los proyectos.
> Gracias desde ya por su ayuda
> Saludos
> Duilio