共有フォルダのショートカットを作成する

WSH

5.812

VBScript

5.8.16384

hikaru

Software Developer / DIY'er

以下のコードを Shift-JIS か UTF-16 BOM エンコーディングで保存して実行します。(UTF8 は VBScript が対応していないので NG です)

vbs

Option Explicit
On Error Resume Next

' ショートカットを作成
CreateShortcut "\\server\共有フォルダ_01"

'==============================================================
' 共有フォルダのショートカットを作成する
'==============================================================
Sub CreateShortcut(targetPath)
    Dim ws
    Set ws = CreateObject("WScript.Shell")

    MsgBox ws.specialfolders("AllUsersDesktop")

    Dim desktop
    Set desktop = ws.specialfolders("AllUsersDesktop")

    MsgBox desktop

    ' デスクトップに共有フォルダのショートカットを作成
    Set shortcut = ws.CreateShortcut(desktop & "\共有フォルダ_01.lnk")
    shortcut.TargetPath = targetPath
    shortcut.WorkingDirectory = desktop
    shortcut.Save()
End Sub

以上です～