¿Cómo puedo dinámicamente poner la ruta de mis archivos de trabajo en una aplicación?
Como puedo dinámicamente poner la ruta de mis archivos de trabajo el una aplicación, esto con el fin de que si cambio de directorio solo sea modificar este archivo y tome los nuevos valores, puede ser a través de un archivo "ini" y como puedo leer los valores de el.?
Gracias
Gracias
1 Respuesta
Respuesta de Sergio Daniel Gomez
1
Lo que yo hago para evitar problemas con movimientos o cambios de directorios es primero averiguar desde dónde se está ejecutando la aplicación y tomar la ruta de ese archivo (el PRG que inicia tu aplicación) y usarla como DEFAULT y después, para llamar a los componentes de la aplicación uso: ".\OTRODIRECTORIO\MiForm" dónde ".\" es el directorio por defecto.
***** Esta es la pequeña rutina que uso *****
lnLargoDirectorio=len(sys(16))
lcCarpeta=sys(16)
for i=lnLargoDirectorio to 0 step -1
if right(lcCarpeta,1)="\"
exit
else
clea
lcCarpeta=left(lcCarpeta,i)
endif
endfor
SET PATH TO lcCarpeta
set default to left(lcCarpeta,len(lcCarpeta)-1)
*********************************
Espero te sirva. Suerte.
***** Esta es la pequeña rutina que uso *****
lnLargoDirectorio=len(sys(16))
lcCarpeta=sys(16)
for i=lnLargoDirectorio to 0 step -1
if right(lcCarpeta,1)="\"
exit
else
clea
lcCarpeta=left(lcCarpeta,i)
endif
endfor
SET PATH TO lcCarpeta
set default to left(lcCarpeta,len(lcCarpeta)-1)
*********************************
Espero te sirva. Suerte.
