Сохранение FileSystemObject как UTF

Question

как я могу сохранить файл в utf-8?

Dim FSO, File   
Set FSO = Server.CreateObject("Scripting.FileSystemObject")   
Set File = FSO.OpenTextFile(Path,2,true,-1)   
File.Write(xml1)   
File.Close   
Set File = Nothing  
Set FSO = Nothing  

Answer 1

Я бы попробовал объект ADODB Stream.

Dim objStream 
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeText
objStream.Mode = adModeReadWrite
objStream.Open
objStream.Position = 0
objStream.Charset = "UTF-8"
objStream.WriteText strContent
objStream.SaveToFile strABSPath,adSaveCreateOverWrite
objStream.Close
Set objStream=nothing