Explorerの送る(sendto)からPATHを設定する

win

とっても便利そうなのでつかってみました．Wshとかvbscriptとか全然わかんないんだけど、ちょっとだけ手を入れてみました．

' addpath.vbs
' 渡されたパスをユーザー環境変数 PATH に追記する。
' SendTo に入れて使ってください。

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("User")


' 第一引数を PATH 環境変数に追加
AddPath = WshEnv.Item("Path") & ";" & WScript.Arguments.Item(0)
WshEnv.Item("Path") = AddPath

' ユーザー環境変数 PATH を表示
WScript.Echo AddPath

これをsendtoフォルダに突っ込んでみました．とっても便利でありがたいです．
最初に登録するPATHの頭に";"が付いてしまうのは、ご愛敬ということで．

リンク