指定フォルダのショートカットを作成する【WshShell】【WshShortcut】【ExcelVBA】

設定やプロパティ

指定フォルダのショートカットを作成するサンプルコード

Public Sub sample()
    '要参照設定　Windows Script Host Object Model
    Dim wsh As New IWshRuntimeLibrary.WshShell
    
    Dim ShortCutPath As String: ShortCutPath = "C:\vba\sample.lnk"    '■ショートカットを作る先を指定
    Dim sTargetPath As String: sTargetPath = ThisWorkbook.Path    '■ショートカット元フォルダを指定(自分自身のファイルの場合)
   ' Dim sTargetPath As String: sTargetPath = "C:\Users\User\Desktop"    '■ショートカット元フォルダを指定(指定の場合)
    
    With wsh.CreateShortcut(ShortCutPath)
        .TargetPath = sTargetPath
        '.WorkingDirectory = "C:\Users\User\Desktop\" '作業フォルダ
        '.Hotkey = "Ctrl+Alt+X"
        '.WindowStyle = 1                             '標準で開く
        '.Description = "コメント"
        '.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 10"  '10番アイコン
        .Save                                        'ショートカットを保存
    End With
    
    Set wsh = Nothing
    
End Sub

注意点

• 事前にVBE→ツール(T)→参照設定(R)より「Windows Script Host Object Model」設定必要です。
• フォルダでなくファイルを指定したい場合はこちら

関連記事

• フォルダを削除する【RmDirステートメント】
• フォルダを作成する【MkDirステートメント】
• 「指定フォルダがあるかどうかチェック」処理をパーツ化する
• 「指定フォルダが存在しなければフォルダ作成」処理をパーツ化する
• ファイルまたはフォルダを抽出する【Dir関数】
• ファイルを削除する【Killステートメント】
• フォルダ内のxlsxファイルに同一処理をするマクロ