Set WshShell = CreateObject("Wscript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set TCS = WScript.CreateObject("TCScript.Helper") FileName = TCS.GetTextFromClip CurrDir = WScript.Arguments(0) FileFName=CurrDir & FileName & ".txt" Set strm = CreateObject("ADODB.Stream") With strm .Open .CharSet = "UTF-8" .WriteText "" .SaveToFile FileFName, 1 .Close End With WshShell.Run """" & CurrDir & FileName & ".txt" & """", 1, True Set WshShell = Nothing Set FSO = Nothing Set TCS = Nothing Wscript.Quit |