Чтение из файла русского текста в DOS кодировке

OneS
Дата: 26.05.2004 09:33:01
Считываю так
Set fs = CreateObject("Scripting.FileSystemObject")
Set fclients = fs.OpenTextFile("D:\file1.txt", ForReading, 0)
Do While fclients.AtEndOfStream <> True
Str = fclients.ReadLine
STTemp = FStrout(Str, 1)
Не понимает досовскую кодировку.
Здесь на форуме нашел функцию:
Function ANSI2OEM(ByVal sAnsi As String) As String
Dim sOem As String
sOem = String(Len(sAnsi), Chr(0))
CharToOem sAnsi, sOem
ANSI2OEM = sOem
End Function
Она не преобразует.
Как прочесть?
Помогите плз.
Victosha
Дата: 26.05.2004 10:25:46
в 98 и старше будет работать

Function convertFromOEM(tString As String) As String
Dim retStr As String
retStr = VBA.String$(VBA.Len(tString), 0)
Dim hResult As Long
hResult = OemToCharA(tString, retStr)
convertFromOEM = dhTrimNull(retStr)
End Function

где OemToCharA это
Private Declare Function OemToCharA Lib "user32" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

dhTrimNull - функция, отсекающая хвостовые vbNullChar

Для Вин НТ и далее ответ здесь
/topic/87994&hl=
OneS
Дата: 26.05.2004 10:59:00
Большое спасибо!