FoxPro/Visual FoxPro - ayuda con ruta de aplicacion

Disculpen amigos, pero tengo un sistema que direccionò fijamente a C:\MIAPP\ quiero evitar que la ruta de mi aplicacion este fija, pero no encuentro como resolverlo.

Gracias por su ayuda.

Saludos Henrik,

Mira lo unico que tienes que hacer es lo siguiente, en el programa principal, que llama la aplicacion Ej: Main.prg, colocale este codigo, claro tienes que sustituir las carpetas en donde tienes tus formas, datos, bipmap, txt, reportes, etc.

Lo importante es crear un PATH.

y Ya esta, me dejas saber si te funciono

PUBLIC gcOldTalk
gcOldTalk = 'OFF'
*ENDIF

cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
_curDir = (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
_npathcurdir = AT(":",_curDir)- 1
_npathcurpjt = RAT("\", _curDir) - (_npathcurdir)
_curpathpjt = (SUBSTR(_curDir, _npathcurdir, _npathcurpjt))
set default to (SUBSTR(_curDir, _npathcurdir, _npathcurpjt))

SET PATH TO PROGS, FORMAS, CLASES, MENU, DATAS, FOTOS, REPORTES, TEMP, TXT

Antonio Moquete
Santo Domingo, Rep. Dom.