FoxPro/Visual FoxPro - Ayuda Urgente

HOLA A TODOS, CUAL ES LA RUTINA PARA GUARDAR EN DIFIERENTES CARPETAS, ES DECIR GUARDAR EN LA COMPAÑIA SELECCIONADA POR EL USUARIO.

Una manera practica es antes de entrar seleccionar el folder de datos con el que vas a trabajar. POr ejemplo con
SET DEFAULT TO ruta

HOLA, GRACIAS PERO NO ME DIO, LA VARIABLE RUTA COMO SE DEFINE, HICE ESTE EJEMPLO Y NO DIO

RUTA=C:MECASOFTCOMPANIA001

SET DEFA TO RUTA

MIL GRACIAS SI ME COLABORAS

*** asi
cRuta = SYS(1271, thisform)
cRuta = SUBSTR(cRuta, 1, RAT("forms", cRuta))
cArchivo = ALLTRIM(cRuta) + "Reports"
SET PATH TO ALLTRIM(cArchivo)

o asi

SET DEFAULT TO c:

o asi

****Rastrea el Directorio:
fxNewDir1 = JUSTPATH(SYS(16, 0))
CD (fxNewDir1)
SET DEFAULT TO (fxnewdir1)

Origen_Bd=fxNewDir1+'datos*.*'
Abrir_Bd=fxNewDir1+'Datosinvent_system.dbc SHARED'