09/01/16 22:48:45 tCfjcxhQ0
Set Shell = CreateObject("WScript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "about:blank"
Do Until IE.ReadyState=4
WScript.Sleep 1
Loop
For Each arg In WScript.Arguments
IE.Document.ParentWindow.ClipboardData.SetData "Text", arg
Do Until IE.ReadyState=4
WScript.Sleep 1
Loop
Shell.Run "D:\application\X-Finder\XF.exe Select:""%Clipboard%"",3:ClipFolder:"
Next
Set Shell = Nothing
IE.Quit
XF.exeのパスを自分の環境に合わせて変更して、
メモ帳などに書き込んで拡張子vbsでセーブ。
そのファイルに対して送れば
たまに失敗するけど大体は行けるみたい。