ショートカットを作成する

参照設定 ＞ Windows Script Host Object Model

'---------------------------------------------------------------------------------------------------
'【処 理 名】ショートカット作成
'【処理概要】ショートカットを作成する
'【引    数】[I]ByVal src As String  コピー元
'          [I]ByVal dst As String  コピー先
'【返 却 値】 なし
'---------------------------------------------------------------------------------------------------
Function createShortcut(ByVal src As String, ByVal dst As String) As Boolean
    '参照設定 ＞ Windows Script Host Object Model
    Dim objShell As New WshShell
    Dim objShortCut As WshShortcut
    
    On Error GoTo ERR_LBL
    
    Set objShortCut = objShell.createShortcut(dst)
    With objShortCut
        .TargetPath = src
        .Save
    End With
    
    createShortcut = True
    GoTo TERM_LBL
    
ERR_LBL:
    createShortcut = False
TERM_LBL:
    Set objShell = Nothing
    Set objShortCut = Nothing
End Function