Create Desktop Shortcut

[Cotty42]

I found this code really useful when setting up BE/FE Database and copying FE to users personal drive. The function will create a shortcut to the FE software on the users desktop so the user doesn't have to search for it.

The function takes 2 paramaters, strFileName = The name of the link created (what will appear on the desktop) and strTargetFileName = the path and filename of the FE file that the shortcut points to.

Public Function CreateShortCut(strFileName, strTargetFileName)
    Dim oWSH As Object
    Dim oShortcut As Object
    Dim sPathDeskTop As String
    Set oWSH = CreateObject("WScript.Shell")
    sPathDeskTop = oWSH.SpecialFolders("Desktop")
'   *** Removes file extension and replaces with '.lnk'
    FileDot = InStr(strFileName, ".")
    strShortCutName = Left$(strFileName, FileDot) & "lnk"
    
    Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & strShortCutName)
    With oShortcut
        .TargetPath = strTargetFileName
        .Save
    End With
    Set oWSH = Nothing
End Function

Hope you find this useful

Dave

 

[leonidasofvegas]

Thank you, very helpful.