FoxPro/Visual FoxPro - Acceso directo

Como puedo hacer para crear un acceso directo y una carpeta del sistema donde pueda colocar la ayuda, el acceso a mi sistema, etc.
Todo desde VFP.

Creas sobre windows el acceso direcoto o archivo .PIF y lo almacenas con tu programa, luego lo copias (copy file) el archivo al directorio o escritorio, según lo desees.
Lo de crear una carpeta se hace con MkDir y para chequear si fue creado con Directory()

Gracias por tu respuesta sin embargo no es lo que estaba buscando.
De hecho ya lo encontré y es:
oWsh = CreateObject("WScript.Shell")
cDesktopDir = oWsh.SpecialFolders("Desktop")
oLnk = oWsh.CreateShortcut(cDesktopDir + "\\Shortcut to Notepad.lnk")
oLnk.TargetPath = cDesktopDir + "\\notepad.lnk"
oLnk.Save()

ahi tienes otra manera mas facil incluisive puedes crearlo no solo en el escritorio sino tambien en el menu del sistema y en inicio, solo necesitas la dll llamada Stkit432.dll

=Acceso_directo('escritorio','Ayuda del Sistema','c:\misistema\ayuda.hlp','')

funcion Acceso_directo()
Parameters xmodo, xdes, xprg, xarg
local xret as Long
xmodo = lower(xmodo)
Declare integer fCreateShellLink in STKIT432.DLL String lpstrFolderName,;
String lpstrLinkName, String lpstrLinkPath, String lpstrLinkArgs
do case
case xmodo='escritorio'
xret = fCreateShellLink("..\..\Escritorio", xdes, xprg, xarg)
case xmodo='menu'
xret = fCreateShellLink("", xdes, xprg, xarg)
case xmodo='inicio'
xret = fCreateShellLink("\Startup", xdes, xprg, xarg)
endcase
Return(xret)