Is there code to add a shortcut to a specified location?

[ffrreedd]

Can visual basic create a shortcut to a specific file and locate that shortcut in a specific location?

 

[dsi]

benh:
Here is the code to create a shortcut.

Option Explicit

Private Declare Function fCreateShellLink Lib "Vb5stkit.dll" (ByVal _
    lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
    lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
    
Sub Main()
    Dim lReturn As Long
    Dim sDeskName As String
    Dim sLinkDesc As String
    Dim sLinkPath As String
    Dim sLinkArgs As String
    On Error GoTo ErrHndlr
    'Add to Desktop
    sDeskName = "..\..\Desktop"
    sLinkDesc = "Shortcut to TestDoc"
    sLinkPath = "\\h4mwn\develop\temp\test.doc"
    sLinkArgs = ""
    
    lReturn = fCreateShellLink(sDeskName, sLinkDesc, sLinkPath, sLinkArgs)
    
    If lReturn = 1 Then
        MsgBox "The ShortCut has been added to your Desktop!"
    Else
        MsgBox "I think there was an error creating the shortcut?"
    End If
    End
ErrHndlr:
    sDeskName = "Error No: " & Err.Number & Chr(10) & "Error Desc: " & Err.Description
    Err.Clear
    MsgBox sDeskName
    End
End Sub

DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[ffrreedd]

Thanks for your help!