Как сделать выгрузку в текстовые файлы

[Storkich]

Скрипт процедуры на VBS для смены кодировки

Sub DosToWIN ( FileDos, FileWin)
  ' Меняю кодировку 
  Set ADODBStream = CreateObject("ADODB.Stream")
  ADODBStream.Type = 2
  ADODBStream.Charset = "IBM866"
  ADODBStream.Open()
  ADODBStream.LoadFromFile(FileDos)
  Text = ADODBStream.ReadText()
  ADODBStream.Close()
  ADODBStream.Charset = "windows-1251"
  ADODBStream.Open()
  ADODBStream.WriteText(Text)
  ADODBStream.SaveToFile FileWin , 2
  ADODBStream.Close()
end Sub