utf-8 cp1251 сортировка файлов(фильтр) Опции

[FREEON]

Кто знает программу, плагин, фильтр или способ сортировки текстовых файлов(массовый) по кодировке. Что бы например выбрал папку и там показывалось какой файл находится кодировке utf-8 или cp1251 или еще какой.
Массовая перекодировка различными программами не дает желаемого результата т.к. из перекодировки допустим из cp1251 в utf-8 будет норм вариант если этот файл в этой кодировке но если он был в ютф то при кодировке выдаст крокозябры. Поэтому и нужно точный фильтр который показал какой файл в какой кодировке изначально. Знаю к пилоту мало относится но есть ли разумное решения вопроса

[Fors1k]

Код

dir (%res C:\2\txt *.txt*)
for #i 1 size(%res)
    set $arrp %res[#i 1]
    load_array %arr $arrp
    set $arr %arr[1 1]
    if copy($arr 1 3) = "п»ї"
        set #utf size(%utf) + 1
        set %utf[#utf] $arrp
        log UTF8_file #utf = %utf[#utf]
    else
        set #ansi size(%ansi) + 1
        set %ansi[#ansi] $arrp
        log ANSI_file #ansi = %ansi[#ansi]
    end_if
    set size(%arr)
end_for
end_script