FoxPro/Visual FoxPro - cambiar de directorios

necesito cambiarlo de un directorio a otro el presente codigo que esta hecho en prg. :

LOCAL MDIR, MDIR1, MDIR2, MDIR3, ARCH0, ARCH1
MNOMBRE = DTOS(DATE()) && CREA UNA CADENA DE FECHA
MDIR = "C:\SISTEMAS\" + MNOMBRE
MDIR1= MDIR + "\MMPBL"
MDIR2= MDIR + "\MMLGU"
MDIR3= MDIR + "\VFM"
ARCH1= "C:" + "\*.* TO &MDIR" &&ES UN EJEMPLO
ARCH1= MDIR + "\*.* TO &MDIR" &&ES UN EJEMPLO

*********************ASIGNAR DIRECTORIOS*********************************

IF !DIRECTORY(MDIR)
MKDIR (MDIR) && CREAR UN NUEVO DIRECTORIO
MKDIR (MDIR1) && CREAR UN NUEVO DIRECTORIO
MKDIR (MDIR2) && CREAR UN NUEVO DIRECTORIO
MKDIR (MDIR3) && CREAR UN NUEVO DIRECTORIO
ENDIF

************copiar en cada subdirectorio los archivos********************

COPY FILE C:\*.* To &MDIR1
Copy File C:\*.* To &MDIR2
Copy File C:\*.* To &MDIR3

**************************************************************************

Buen dia , puede utilizar el cd &direccion para cambiar el directorio en donde &direccion contendra la ruta del directorio.

Por lo menos eso fue lo que entendi que necesitas hacer.

Saludos

Fernando Porras
el salvador