スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文    Object.CreateShortcut(PathLink)
        Shortcut.TargetPath              取得/設定

設定項目　　　内容
Object 　　　　WshShellオブジェクトを指定［省略不可］
PathLink  　　ショートカットを作成するパスを指定［省略不可］
Shortcut　 　　WshShortcutオブジェクトを指定［省略不可］

CreateShortcutメソッドは指定したパスにショートカットを作成します。ショートカットを作成するアプリケーションやファイルはWshShortcutオブジェクトのTargetPathプロパティで指定します。
ショートカットのその他の属性もWshShortcutオブジェクトのプロパティで設定できます。例えば、アイコンファイルはIconLocationプロパティ、説明はDescriptionプロパティ、作業フォルダはWorkingDirectoryプロパティ、ショートカットキーはHotkeyプロパティで設定できます。
サンプルは、デスクトップにWindowsの「ペイント」アプリケーションのショートカットを作成しています。最後にSaveメソッドを使用して保存しています。ショートカットのプロパティはショートカットを右クリックしてメニューから［プロパティ］コマンドを実行します。

●サンプル●
'デスクトップにショートカットを作成する
'   [ツール]→[参照設定]で「Windows Script Host Object Model」をチェック
Sub Sample()
    Dim myWSH      As New IWshRuntimeLibrary.WshShell
    Dim myShortcut As IWshRuntimeLibrary.WshShortcut
    Dim myPath     As String
    myPath = myWSH.SpecialFolders("Desktop") & "\" & "ペイント.lnk"
    Set myShortcut = myWSH.CreateShortcut(myPath)
    With myShortcut
        .TargetPath = "c:\windows\system32\mspaint.exe"
        .Description = "ショートカット作成テスト"
        .IconLocation = "c:\windows\system32\mspaint.exe"
        .RelativePath = "c:\"
        .WorkingDirectory = "c:\"
        .Hotkey = "Ctrl+Alt+P"
        .Save
    End With
End Sub

●補足●
WshShellオブジェクトは利用する前に参照設定を行う必要があります。参照設定は、［ツール］メニューから［参照設定］コマンドを選択して、［参照設定］ダイアログボックスを表示します。ダイアログボックスが表示されたら、一覧から「Windows Script Host Object Model」をチェックして［OK］ボタンをクリックします。