Hi every one
I need make a shortcut. With this program I can do it, but it lack the star in property:
Destiny: (is ok)
Star in : (this lack)
I wonder if some one can help me.

oWsh = CreateObject("WScript.Shell") 
cDesktopDir = oWsh.SpecialFolders("Desktop") 
** to indicate the """Destiny:"""
oLnk = oWsh.CreateShortcut(cDesktopDir + "\\Shortcut to Notepad.lnk")   
**to indicate the """Star in:"""
oLnk.TargetPath = cDesktopDir + "\\notepad.lnk" 
oLnk.Save()

TIA