clsShellLink Class

This class permits you to manage Unicode Shell links

Enums

Name	Description

Events

Name	Description

Properties

Name	Type	Description
Arguments	(String)	Gets or sets the Link arguments
Description	(String)	Gets or sets the Link description
HotKey	(KeyCodeConstants)	Gets or sets the Link hotkey
Icon	(Variant)	Gets or sets the Link Icon; returns the Icon handle (in a Picture object) associated with the link
LnkPath	(String)	Gets or sets the Path of the link file
ShowCommand	(VbAppWinStyle)	Gets or sets the Link window style
Target	(String)	Gets or sets the link target (the file/folder pointed by the link)
WorkingDirectory	(String)	Gets or sets the Link working folder

Methods

Name	Type	Description
Destroy		Releases resources used by the class
Load		Loads a certain .lnk file from disk and permits you to read its information using the above properties
Save		Saves a .lnk file to disk using the above properties

Remarks

Load info from a link

Dim oLink As clsShellLink
Set oLink = New clsShellLink

Dim sText As String
Dim s As String
s = App.Path & "\a.lnk"

'txt is an Unicode TextBox

If s <> "" Then
    If oUniFile.st_FileExist(s) Then
        oLink.Load s

        sText = "Target: " & oLink.Target & vbNewLine & _
            "Arguments: " & oLink.Arguments & vbNewLine & _
            "Description: " & oLink.Description & vbNewLine & _
            "Working Directory: " & oLink.WorkingDirectory

        txt.Text = sText

    End If
End If

Save a .lnk file

Dim oLink As New clsShellLink
oLink.LnkPath = App.Path & "\my.lnk"
oLink.Target = "notepad.exe"
oLink.Description = "My Link ;-)"
oLink.Icon = Me.Icon
oLink.Save