перекодировка WIN в DOS

[Геннадий]

Помогите, пожалуйста, начинающему кодеру! Мне необходимо строку "русского" текста перекодировать в соответствии с кодовой таблицей 866, чтобы потом записать в бат-файл, который потом запустит одну прогу. Проблема в том, что командная строка не дружит с русским языком, а я должен запустить прогу, передав ей в качестве параметра строку "русского текста"; если не программно не перекодировать, то та прога отображает потом абракадабру. Или есть способ запустить ту прогу из VB, передав ей в качестве параметра строку текста. Был бы ОЧЕНЬ благодарен за помощь.

[RayShade]

Есть API

Код: Выделить всё

Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long


Вот и им строку и перекодируй прямо.