Carpetas Mis Documentos y Archivos de Programa

Como saber la ruta de las carpetas Mis Documentos y Archivos de Programa: Con la Foundation Class que trae VFP podemos saber la ruta de la carpetas Mis Documentos y Archivos de programa.

Ejemplo:

lo = NEWOBJECT("_CommonFolder",HOME(1)+"FFC\_System")
lcMD = lo.GetFolder(5)
lcAP = lo.GetFolder(38)
lo = .Null.
MESSAGEBOX(lcMD,64,"Mis Documentos")
MESSAGEBOX(lcAP,64,"Archivos de programa")

Luis María Guayán