VB6 Shortcut to .exe put on desktop of Windows 7 and Vista machines

for clarity's sake: I need to know how to program this to happen in VB6...

I used to use the Visual Basic 6.0 Package and Deployment Wizard to define all the files to distribute.
I then use the target directory of %USERPROFILE%\desktop to save the icon too..

oh dear...it's me again :)

Replace with your own values in the following, and choose from either "this user" or "all users"...

Public Sub CreateShortcut()
Dim WSHShell         As Object
Dim ShellLink        As Object
Dim UserDesktopPath  As String
Dim EXEPath          As String
Dim ShortcutTitle    As String

    Set WSHShell = CreateObject("WScript.Shell")
    ' To create a shortcut for the current user ONLY:
    UserDesktopPath = WSHShell.SpecialFolders("Desktop")
    ' To create a shortcut for ALL USERS:
    UserDesktopPath = WSHShell.SpecialFolders("AllUsersDesktop")
    EXEPath = "C:\PathToYourFile\YourFileName.exe"
    ShortcutTitle = "TEST"
   
    Set ShellLink = WSHShell.CreateShortcut(UserDesktopPath & "\" & ShortcutTitle & ".lnk")
    ShellLink.TargetPath = EXEPath
    ShellLink.IconLocation = EXEPath
    ShellLink.WorkingDirectory = EXEPath
    ShellLink.Save
   
    Set ShellLink = Nothing
    Set WSHShell = Nothing
End Sub

Snowberry,


This works great in XP... will this also work with Windows 7 and Vista?

Thank you!

Got it - this works great - thank you for all your help!