Сохранение 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