ZAM>А чем тебе StrConv не угодил?

Видимо, тем, что в VBScript не доступен.
Да и для перекодировки OEM -> ANSI малопригоден...




Аноним>Плиз, подскажите, нужно перекодировать содержание файлика из досовской в виндовую кодировку,
Аноним>при этом читать и писать в один файл

Примерчик:

    Dim strBuffer

    Const adSaveCreateOverWrite = 2

    With CreateObject("ADODB.Stream")
        .Open
        .Charset = "cp866"
        .LoadFromFile "print.txt"
        strBuffer = .ReadText
        .Position = 0
        .SetEOS
        .Charset = "windows-1251"
        .WriteText strBuffer
        .SaveToFile "print.txt", adSaveCreateOverWrite
    End With