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
