FoxPro/Visual FoxPro - Ayuda con esto (ObjShell.Run)

Hola como estan todos primero que todo Feliz Navidad,

tengo el siguiete problema, resulta que quiero hacer run a un archivo pero solo me funciona con rutas como estas (c:\carpeta\archivo), pero no funciona con una ruta como esta::

ObjShell = CreateObj("WSCript.Shell")
ObjExel = CreateObj("Excel.Application")

ObjShell.Run('C:\Documents and Settings\POLICIA NACIONAL\Escritorio\BD_RED_APOYO_\r_alarmas.xls')

genera un error de OLE, bueno esta es la ultima parte del codigo

gracias a quie me pueda solucionar este problema

Me imagino que te salen los errores por los espacios en los nombres de los directorios, prueba cambiando los nombres a su version corta.
A ver si te funciona con esto:

fso = CREATEOBJECT("Scripting.FileSystemObject")

Carpeta = fso.GetFolder(SYS(5)+SYS(2003))

CarpetaNombreCorto=folder.ShortPath

Con las funciones SYS sabras el nombre del directorio actual mas el de la unidad. Deberas definir el directorio que quieres manipular como el directorio actual con el SET DEFAULT...

Roma Gracias eres uno de los mejore s de este portal
si me funciono tambien lo probe con getfile y funciona

lugar=PUTFILE("","R_Alarmas","xls" )
if !empty(lugar)
lugar='"'+lugar+'"'
copy to &lugar type xl5

fso = CREATEOBJECT("Scripting.FileSystemObject")
Carpeta =fso.GetFile(&lugar)
CarpetaNombreCorto=carpeta.ShortPath
Feliz navidad .....................a todos