Desk top Icon

[popeda]

'In declarations:
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
'In code:
fCreateShellLink "C:\windows\Desktop", "my program", filepath, ""
--------------------------------------------------------------------------------

I have had 2 people tell me to use this code to create a icon on the desk top But I can fugure it out still. I has to be something I am doing. Can some on help me here. Where does the code go. I am still very wet at this.
Thanks

By reading the code, i'm pretty sure that this will work. If you haven't already done so, try the method below.

Put the below code in a module

'In declarations:
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long


Put this code on a CommandButton in the form.
fCreateShellLink "C:\windows\Desktop", "my program", filepath, ""

[johnpc]

If you are using VB5 or VB6 I doubt that the DLL from
the VB4 SetupKit ("STKIT432.DLL) will accomplish the task.

I have emailed you the code to do this.