Breadcrumbs

[CodenStuff]

Hello,

This code will add a shortcut for your application on the users desktop:

Make a reference to the "Windows Script Host Object Model" COM library and then in your code add:

Code: Select all

Imports IWshRuntimeLibrary

Then when you want to create your shortcut:

Code: Select all

Dim DesktopShortcut As WshShellClass = New WshShellClass
        Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut
        Dim MyIconFile = "C:\NameofIconToUseOnShortcut.ico"
        Dim Desktop As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
        MyShortcut = CType(DesktopShortcut.CreateShortcut(Desktop & "\" & Application.ProductName & ".lnk"), IWshRuntimeLibrary.IWshShortcut)
        MyShortcut.TargetPath = Application.ExecutablePath
        MyShortcut.IconLocation = MyIconFile
        MyShortcut.Save()

Change "C:\NameofIconToUseOnShortcut.ico" to the filename and location of an icon file you wish to display as your shortcut.

Thats all you have to do, no need to change anymore code cooll;

[Scottie1972]

This is great..I was wondering if there was a way to do this or not.

[Miutubevids]

CnS goes b1g in Shortcuts

[RonaldHarvey]

codenstuff, thanks I tried it and it works. cooll;