>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

Andrews,

You simply need to indicate the folder/directory you want the application to use as the default. For example:

oLnk.TargetPath = "C:\MyFolder"