'

' convert text files to Unicode from UTF8 en VBScript

'

Set stream = CreateObject("ADODB.Stream")

Dim stream

stream.Open

stream.Type = 2 'text

stream.Charset = "utf-8"

stream.LoadFromFile dirtemp & "\scrapbook.tmp"

fso.OpenTextFile (dirtemp & "\scrapbook.txt", 2, True, True).Write stream.ReadText

stream.Close