FoxPro/Visual FoxPro - Me falta algo en el acceso directo

Hola a todos.
Programo en VFP 6.0
Cuando creo un acceso directo para el escritorio de windows 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 intenta abrir todas las tablas solo en la carpeta "Escritorio", cuando ingresé a las propiedades del acceso (desde windows), en el campo "Iniciar en: " no tiene dirección, como puedo hacer para que mi acceso trabaje en la carpeta donde estan mis datos.
Gracias

Lo más sencillo es que hagas un acceso directo de tu exe en la misma carpeta y el acceso directo del escritorio que apunte al acceso directo ubicado en la carpeta de la aplicación de esa forma nunca falla

Creo que algo asi seria lo que necesitas :

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)
oMyShortcut.WorkingDirectory=(ruta)
oMyShortcut.Save

Espero te sirva