FoxPro/Visual FoxPro - Ayuda Urgente por favor¡¡¡

Hay alguna manera de hacer accesos directos a carpetas del sistema (Windows) por ejemplo con un boton (command) al darle clic habra la ventana de "Mi Pc" , otro boton que sea acceso directo a mis sitios de red, etc... Me explico???

Agradesco sus respuesta...

#DEFINE SC_MAXIMIZED 3
#DEFINE SC_MINIMIZED 7
#DEFINE SC_NORMAL 4

#IF val(substr(version(),15,2))<7
LOCAL ;
loWsh, ;
lcFolder, ;
loShortCut, ;
lcAppPath
#ELSE
LOCAL ;
loWsh AS Wscript.SHELL, ;
lcFolder, ;
loShortCut, ;
lcAppPath
#ENDIF

loWsh = CREATEOBJECT("Wscript.shell")
lcFolder = loWsh.SpecialFolders("StartUp")
loShortCut= loWsh.CreateShortcut(lcFolder + "\POSSSSSSS.lnk")
lcAppPath = FULLPATH(CURDIR()) && For example
lcAppName = "MyApp.EXE" && For example
loShortCut.WorkingDirectory = lcAppPath
loShortCut.TargetPath = '"' + lcAppPath + lcAppName + '"'
loShortCut.IconLocation = loShortCut.TargetPath && Assumes built-in ICO
loShortCut.WindowStyle = SC_MAXIMIZED
loShortCut.HOTKEY = "ALT+CTRL+P" && For example
loShortCut.SAVE()

Suerte