FoxPro/Visual FoxPro - como crear un acceso directo

amigos necesito que por favor me digan como se crea un acceso directo por fox. Ahhh y como encuentro un archivo .exe por la red. Gracias

No me recuerdo donde lo consegui, pero vaya el credito a quien lo hizo

WshShell = CreateObject(\"WScript.shell\")
strDesktop = wshShell.SpecialFolders(\"Desktop\")
oMyShortCut =WshShell.CreateShortcut(strDesktop+\"\\mi ejemplo.lnk\")
oMyShortCut.WindowStyle = 3
&&oMyShortCut.IconLocation = \"c:\\fox.ico\"
oMyShortCut.TargetPath = \"%windir%\\notepad.exe\"
oMyShortCut.HotKey = \"ALT+CTRL+F\"
oMyShortCut.Save
wait window \'Acceso directo creado\' nowait

Saludos
Al