FoxPro/Visual FoxPro - Como ubicar Directorio Inicial

Hola a todos.
Programo en VFP 6.0
Cuando creo un acceso directo en el escritorio con:
WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
oMyShortCut =WshShell.CreateShortcut(strDesktop+"\SoloMio.lnk")
el acceso se crea en el escritorio de windows, pero inteneta abrir todas las tablas solo en la carpeta Escritorio, cuando ingrese a las propiedades dl acceso (desde windows), en "Iniciar en: " no tiene dirección, como puedo hacer para que mi acceso trabaje en la carpeta donde estan mis datos.
Gracias

CReo que esto es lo que necesitas:

m.texicono="\"+alltrim(m.texicono)+".lnk"
&& crear un acceso directo de VFP
ruta=sys(5)+sys(2003)
iniciar=ruta+"\notas.exe"
if empty(m.suicono)
m.suicono="&ruta"+"\anotar.ico"
endif
WshShell=CreateObject("WScript.shell")
strDesktop=wshShell.SpecialFolders("Desktop")
oMyShortcut=WshShell.CreateShortcut(strDesktop+(alltrim(texicono)))
oMyShortcut.WindowStyle=4
oMyShortcut.IconLocation=(suicono)
oMyShortcut.TargetPath=(iniciar) && el ejecutable
oMyShortcut.WorkingDirectory=(ruta) && la ruta de inicio
oMyShortcut.Description=(alltrim(notapant))
oMyShortcut.Save

Espero te sirva...

Gracias Wences, lo que me hacia falta era: "oMyShortcut.WorkingDirectory=(ruta) && la ruta de inicio"
Ahora si ´puedo trabajar, ahora estoy trabajando en como crear una carpeta en la carpeta Menú Inicio. Si tuvieras algo de agradecería.
Saludos