タブファイラー・X-Finder [ x ] Part31

[0036 名無しさん＠お腹いっぱい。 2012/11/02(金) 20:27:03.05 ID:5+7SZZMNP]

>>35
Script:JScript
WScript.Exec('Input:"*.URLの作成","ショートカット名を入力してください。","名前",""',1);
uo=new ActiveXObject("Scripting.FileSystemObject").CreateTextFile(WScript.Env('Current')+'\\'+WScript.Env('InputData')+'.url');
uo.Write('[InternetShortcut]\r\nURL='+WScript.Env('Clipboard'));
uo.Close();

こうかな