With CreateObject("WScript.Shell")
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write List1
.Run "%comspec% /c clip < """ & TempFile & """",0,True
FSO.OpenTextFile(TempFile, 2, True, -1).Write List2
.Run TCFS2 & " /ef msg($0B,0) tcm(2033,0) send({TAB})",,True
.Run "%comspec% /c clip < """ & TempFile & """",0,True
.Run TCFS2 & " /ef tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True
.Run "%comspec% /c type|clip ",0
End With : FSO.DeleteFile TempFile, 1 : D.RemoveAll : G.RemoveAll : Set D = Nothing
Set G = Nothing : Set Items = Nothing : Set FSO = Nothing : WScript.Quit |