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 |
