По умолчанию текстовый файл записывается в ANSI, а как можно записать файл в кодировке Юникода?

Выбирай

//*******************************************
Процедура Сформировать()
   Чарсеты="ascii
   |utf-16
   |utf-8
   |koi8-r
   |cp866
   |windows-1251";
   Стрим = СоздатьОбъект("Adodb.Stream");
   Стрим.Type = 2;
   Стрим.Mode= 3;
   Для к=1 По СтрКоличествоСтрок(Чарсеты) Цикл
       Чарсет=СтрПолучитьСтроку(Чарсеты,к);
       Стрим.charset=Чарсет;
       Стрим.Open();
       Стрим.WriteText("Проверочка");
       Стрим.SaveToFile("c:\"+Чарсет+".txt",2);
       Стрим.Close();
   КонецЦикла;
   //Через ФСО
   ФайлЮникодФСО="c:\ФайлЮникодФСО.txt";
   ФСО=СоздатьОбъект("scripting.filesystemobject");
   Файл=ФСО.OpenTextFile(ФайлЮникодФСО,2,-1,-1);
   Файл.WriteLine("Проверочка");
   Файл.Close();
   //"Штатная" метода
   ФайлДОС="c:\ФайлДОС.txt";
   ФайлЮникод="c:\ФайлЮникод.txt";
   Текст=СоздатьОбъект("Текст");
   Текст.ДобавитьСтроку("Проверочка");
   Текст.КодоваяСтраница(1);
   Текст.Записать(ФайлДОС);
   КомандаСистемы("cmd /u /c type """+ФайлДОС+""" > """+ФайлЮникод+"""");
КонецПроцедуры