FoxPro/Visual FoxPro - Directorio Actual

Buenas, mi gran duda es: tengo un formulario y una simple tablita, que copio por medio de un explorador de windows de una carpeta a otra, en el init del formulario tiene:
Set Default To C:\Telef, pero si copio los dos archivos a otra carpeta, por ejemplo, c:\Varios\telf, tengo que cambiar el código, en definitiva lo que deseo es una función o código que me devuelva el directorio actual para poder hacer el set default, esta es la idea:

DirAct=NOMBREFUNCIÓN()
Seteo="Set default to "+DirAct
&Seteo

Funcionaría?

Desde ya Muchas Gracias.

Hola:

Puedes utilizar la función sys(2003) que te regresa el directorio actual, por ejemplo si pones SET DEFA TO c:\Telef, sys(2003) te regresara la cadena "\Telef".

Si deseas que te devuelva la ruta completa utiliza SYS(5)+SYS(2003).

Saludos.

Juan Efraím Martínez Lira.
Guanajuato, México.

1000 GRACIAS, PRECISAMENTE ERA ESO!!!!!
Un Saludo Cordial.

Checa este enlace te va a servir de mucho

http://www.portalfox.com/index.php?name=Sections&req=viewarticle&artid=70

Suerte

miRuta = FULLPATH(CURDIR())

SET DEFA TO &miRuta