[Iska]

ANSI видимо -2 (4 параметр) »

Нет, ANSI — это как раз «omitted» или же TristateFalse = 0. А TristateUseDefault = -2 даёт достаточно своеобразный эффект. Например:

Скрытый текст

Код:

Option Explicit

' IOMode Enum
Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8

' Format Enum
Const TristateUseDefault = -2
Const TristateTrue       = -1
Const TristateFalse      =  0


Dim strFile

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each strFile In Array("ANSI-1251.txt", "UTF-16LE-1200.txt", "UTF-16LE-1200 BOM.txt")
		WScript.Echo strFile
		
		With .OpenTextFile(strFile)
			WScript.Echo .ReadAll()
			.Close
		End With
		
		With .OpenTextFile(strFile, ForReading, False, TristateUseDefault)
			WScript.Echo .ReadAll()
			.Close
			WScript.Echo
		End With
	Next
End With

WScript.Quit 0