Convert text file to true utf-8 (not utf-16 BE BOM)

[MPW]

Hi, I have created an xml file that is based on data from Excel. However, the result is that it is in an ansi format. The program that uses this file requires the utf-8 format and I am currently able to emulate this by throwing it into Notepad++ to format it correctly. I would like to accomplish this automatically.

I best code I found in several places on the web was this:

        Set fso = CreateObject("Scripting.FileSystemObject")
        Set stream = CreateObject("ADODB.Stream")
        stream.Open
        stream.Type = 2
        stream.Charset = "utf-8"
        stream.LoadFromFile strPath
        fso.OpenTextFile(strPath, 2, True, True).Write stream.ReadText
        stream.Close

Unfortunately, this results in the "utf-16 BE BOM" instead of the desired "utf-8".
My question is "How can I modify the above code to get the right output or is there a better method?"

Thank you for the use of your brains.

 

[Domenic]

I'll need to look into this further when I get a chance. If I have any other suggestions, I'll post back.

 

[MPW]

No worries, thanks for the look. Both of you.

 

[MPW]

Back from the holiday's, thought I would bump this since it remains unresolved.

It is the only missing piece of my project. Currently it still needs to be converted in Notepad++, but I am sure there is a better alternative.