[WSH] 送る(SendTo)フォルダにショートカットを作成するよ

前置き

※当方、Windows Script Hostingの右も左も分からぬ素人故、下記のWSHの保証は出来ませぬ＞＜

これは何?

送る(SendTo)フォルダにショートカットを作成します。
下記のソースを sendtomaker.vbs とでも名付けて SendToフォルダに入れておけば便利かも。
似たような(もっと優れた)代物は沢山有るでしょうが、勉強がてら(ひぃひぃ呻きながら)書いてみました。
正直、何を行っているか完全に理解出来ていません(汗

突っ込み大歓迎です＞＜

ソースだよ

Option Explicit
dim objArgs,strFilePath,objFSO,strFileName,objShell,strSendTo,strShortcutPath,objShortCut
Const TITLE = "SendToMaker"

Set objArgs = WScript.Arguments
if objArgs.Count <> 1 then
   MsgBox "ファイルを一つだけ選択してください。",,TITLE
   Set objArgs = Nothing
   WScript.Quit
end if

strFilePath = objArgs(0)

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFileName = objFSO.GetBaseName(strFilePath)

Set objShell = WScript.CreateObject("WScript.Shell")
strSendTo = objShell.SpecialFolders("SendTo")
strShortcutPath = strSendTo +  "\" + strFileName + ".lnk"

Set objShortCut = objShell.CreateShortcut(strShortcutPath)
objShortCut.TargetPath = strFilePath
objShortCut.Save

Set objArgs = Nothing
Set objFSO = Nothing
Set objShell = Nothing
Set objShortCut = Nothing

MsgBox """" & strSendTo & """に" & vbCrLf & _
"""" & strFilePath & """への" & vbCrLf & _
"ショートカットを作成しました。",,TITLE