Create a shortcut for your application automatically

[TheSmileyCoder]

In my install application found at:
Access Application Installer with Shortcut Creation


I use this code to generate shortcuts for the user. In my installer application I have it setup to create a shortcut both on the users desktop, as well as in the users Programs Folder (the one you get to by Clicking Start->Programs)

Public Sub Create_ShortCut(ByVal TargetPath As String, ByVal ShortCutPath As String, ByVal ShortCutname As String, Optional ByVal WorkPath As String, Optional ByVal Window_Style As Integer, Optional ByVal ShortcutLetter As String)
   'Create a Windows Script Host Object
      Dim objWSHShell As Object
      Set objWSHShell = CreateObject("WScript.Shell")
 
   'Create shortcut
      Dim MyShortcut As Object
      ShortCutPath = objWSHShell.SpecialFolders(ShortCutPath & "")
      Set MyShortcut = objWSHShell.CreateShortcut(ShortCutPath & "\" & ShortCutname & ".lnk")
      MyShortcut.TargetPath = TargetPath
      MyShortcut.WorkingDirectory = WorkPath
      MyShortcut.WindowStyle = Window_Style
      If strIconFullPath <> "" Then
         MyShortcut.IconLocation = strIconFullPath
      End If
      If ShortcutLetter <> "" And Len(ShortcutLetter) = 1 Then
         MyShortcut.hotkey = "Ctrl+ALT+" & ShortcutLetter
      End If
      MyShortcut.Save
 
   'cleanup
      Set MyShortcut = Nothing
      Set objWSHShell = Nothing
 
End Sub

[codejunkie2013]

There is a BUG in Wscript (TargetPath).

Try the command line for ms Access shortcut like:

"path access.exe" "path to accessdb" /params "path to mdw" /params2

If you use wscript all backward slashes becomes forward slashes for the params part.

Did not find a workaround yet.
Also

char(47)

does NOT do the trick.