strDesktop = ff.Item(2)

ff=WshShell.SpecialFolders
strDesktop = ff.Item(2) +"\newbie\" && this is for start programs menu
oMyShortCut= WshShell.CreateShortcut(strDesktop+ "" +lcShortcut + ".lnk")
oShort = oMyShortCut
oMyShortCut.WindowStyle = 1  &&Minimized 0=Maximized  4=Normal 
*oMyShortcut.IconLocation = home()+"wizards\graphics\builder.ico"
oMyShortCut.TargetPath = cTargetPath
otarg = oMyShortCut.TargetPath
oMyShortCut.Arguments = cParameters
oArg = oMyShortCut.Arguments
oMyShortCut.WorkingDirectory = "C:\Program Files\Newbie\"
oMyShortCut.Save
*SET STEP ON 
*lcShortcut = "whatever.lnk"

*SET STEP ON 
mFile = (ADDBS(strDesktop) + FORCEEXT(newname, "lnk"))
	if FILE(mFile) == .t.
		DELETE FILE(mFile)
	endif
RENAME 												;
(ADDBS(strDesktop) + lcShortcut + ".lnk")			; 
    TO 													;
(ADDBS(strDesktop) + FORCEEXT(newname, "lnk"))
****************************************************