Get shortcut path

[lintz]

When my app is installed it creates a shortcut (Start-->Programs-->MyApp). As users will install the app to different locations and on different drives, how can I get the path of the shortcut so i can then place another on the desktop?

I can create a shortcut, I just need to be able to get the path of the shortcut created from the setup.

Thanks.

[dis1411]

hmm why not place the shortcut using the installation prog?

it should have the ability to find the desktop for u

[lintz]

The P&D wizard only gives you the option to create one at (Start-->Programs-->MyApp) and not on the desktop.

[dis1411]

what a POS, i personally use the visual studio .net P&D wizard to deploy my vb6 stuff.. anyway

Private Sub Command1_Click()
    If Environ("userprofile") <> "" Then
        MsgBox Environ("userprofile") & "\desktop"
    Else
        MsgBox Environ("windir") & "\desktop"
    End If
End Sub

[DaveBo]

Public Function Get_Shortcut_TargetFile_Name( _
    Optional LinkFile As String) As String

    ' resolve a shortcut target
    ' needs reference to: "Windows Script Host Object Model" wshom.ocx

    ' Windows2000 fails at Set WS = New WshShell
    ' "Automation error. The specified procedure could not be found."

    Dim WS As WshShell
    Dim oShellLink As WshShortcut

    Set WS = New WshShell
    Set oShellLink = WS.CreateShortcut(LinkFile) 'all shortcuts end in .LNK
    Get_Shortcut_TargetFile_Name = oShellLink.TargetPath
    Set oShellLink = Nothing
    Set WS = Nothing

End Function    ' Get_Shortcut_TargetFile_Name
'################################################################################

[manavo11]

http://www.vbforums.com/showthread.p...hreadid=260353