For Questions and Assistance please use the proper Category.. please..
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Welcome guys!!.. In order for you guys to post your Questions and assistance requests,, please REGISTER first.. Only members can post.. If you have requests then feel free to email ADMIN neuron or SPAMMER onatzky.. thanks!

Display results as :
Rechercher Advanced Search
Donation box
Latest topics
» Convert signed ZD to PD
Thu Sep 01, 2016 7:57 pm by neuron

» Abia State Polytechnic Admission form for 2013/2014 out!
Tue Oct 08, 2013 9:30 am by stevejoo

» Convert ZD to SIGNED PD
Sun Sep 08, 2013 9:22 pm by neuron

» How to Speed Up My PC
Tue Feb 26, 2013 9:15 am by alphysudaria143

» Hi I'm alphysudaria143
Sun Feb 17, 2013 12:25 am by alphysudaria143

» How to Copy all the Generations of a GDG
Thu Oct 11, 2012 8:30 am by neuron

» Remove Duplicates in a dataset though Sort
Thu Oct 11, 2012 8:23 am by neuron

» how to insert data into your access database
Tue Aug 14, 2012 9:56 am by neuron

» how to populate combobox in during form load
Tue Aug 14, 2012 9:53 am by neuron

Please support me my registering to NEOBUX
free forum

Share | 

 Create shortcut of an exe or a file on desktop VB.NET

Go down 

Posts : 38
Join date : 2009-08-06

PostSubject: Create shortcut of an exe or a file on desktop VB.NET   Thu Aug 06, 2009 11:49 pm

Here's how to create a shortcut using your VB.NET program


Public Sub create_shortcut()
        Dim wsh As Object = CreateObject("WScript.Shell")

        wsh = CreateObject("WScript.Shell")

        Dim MyShortcut, DesktopPath

        ' Read desktop path using WshSpecialFolders object

        DesktopPath = wsh.SpecialFolders("Desktop")

        ' Create a shortcut object on the desktop

        MyShortcut = wsh.CreateShortcut(DesktopPath & "\XXXXX.lnk")

        ' Set shortcut object properties and save it

        MyShortcut.TargetPath = wsh.ExpandEnvironmentStrings("C:\XXX.TXT")

        MyShortcut.WorkingDirectory = wsh.ExpandEnvironmentStrings("C:\")

        MyShortcut.WindowStyle = 4

        'Use this next line to assign a icon other then the default icon for the exe

        MyShortcut.IconLocation = "%SystemRoot%\system32\SHELL32.dll,44"

        'Save the shortcut


    End Sub

credit goes to the original uploader of the codes..

In this forum we will share the knowledge we have to every single individual who shows respect and interest.. If you stay.. you learn.. if not.. then please go.........

--it's me Admin"D"
Back to top Go down
View user profile
Create shortcut of an exe or a file on desktop VB.NET
Back to top 
Page 1 of 1
 Similar topics
» 1 A.M Lesson Preparation Sheet : File 01
» 4 A.M. File 5
» 3 A.M Lesson preparation sheet : FILE 04
» 1 A.M. File 3
» 2 A.M. File 5

Permissions in this forum:You cannot reply to topics in this forum
OnlineKnowledgeRepository :: All About PC :: Programming :: VB.NET-
Jump to: