[Creat0R]

Паразит,

Код:

#include <Encoding.au3>

For $i = 1 To 5
    $sFile = @DesktopDir & '\1\' & $i & '.txt'
    $sEncoding = _Encoding_GetFileEncodingString($sFile)
    ConsoleWrite('[' & $sFile & '] encoding: ' & $sEncoding & @CRLF)
Next

Func _Encoding_GetFileEncodingString($sFile)
    Local $iEncoding = FileGetEncoding($sFile)

    Switch $iEncoding
        Case 0
            $iEncoding = _Encoding_GetCyrillicANSIEncoding(FileRead($sFile, 256))
        Case 32
            $iEncoding = 'UTF16 Little Endian'
        Case 64
            $iEncoding = 'UTF16 Big Endian'
        Case 128
            $iEncoding = 'UTF8 (with BOM)'
        Case 256
            $iEncoding = 'UTF8 (without BOM)'
    EndSwitch

    Return $iEncoding
EndFunc