Dim fso, objFile, strExt, strFolder

Set fso = CreateObject("Scripting.FileSystemObject")
For Each objFile in fso.GetFolder(".").Files
    strExt = fso.GetExtensionName(objFile.Path)
    strExt = LCase(strExt)
    If strExt = "txt" Or strExt = "html" Or strExt = "htm" Then
        strFolder = GetEncodingType(objFile.Path)
        If Not fso.FolderExists(strFolder) Then
            fso.CreateFolder(strFolder)
        End If
        objFile.Move strFolder & "\"
    End If
Next

MsgBox "Success!"

Function GetEncodingType(file)
    Dim ado, bom, i, arr(), n
    Set ado = CreateObject("ADODB.Stream")
    ado.Mode = 3
    ado.Type = 1
    ado.Open
    ado.LoadFromFile file
    For i = 1 To 3
        bom = bom & Hex(AscB(ado.Read(1)))
    Next
    If InStr(bom, "FFFE") Or InStr(bom, "FEFF") Then
        GetEncodingType = "UNICODE"
    ElseIf bom = "EFBBBF" Then
        GetEncodingType = "UTF8"
    Else
        ado.Position = 0
        n = ado.Size - 1
        ReDim arr(n)
        For i = 0 to n
            arr(i) = ChrW(AscB(ado.Read(1)))
        Next
        If IsUtf8(Join(arr, "")) Then
            GetEncodingType = "UTF8NOBOM"
        Else
            GetEncodingType = "ANSI"
        End If
    End If
    ado.Close
    Set ado = Nothing
End Function

Function IsUtf8(ByRef str)
    Dim s, reg
    s = "[\xC0-\xDF]([^\x80-\xBF]|$)"
    s = s & "|[\xE0-\xEF].{0,1}([^\x80-\xBF]|$)"
    s = s & "|[\xF0-\xF7].{0,2}([^\x80-\xBF]|$)"
    s = s & "|[\xF8-\xFB].{0,3}([^\x80-\xBF]|$)"
    s = s & "|[\xFC-\xFD].{0,4}([^\x80-\xBF]|$)"
    s = s & "|[\xFE-\xFE].{0,5}([^\x80-\xBF]|$)"
    s = s & "|[\x00-\x7F][\x80-\xBF]"
    s = s & "|[\xC0-\xDF].[\x80-\xBF]"
    s = s & "|[\xE0-\xEF]..[\x80-\xBF]"
    s = s & "|[\xF0-\xF7]...[\x80-\xBF]"
    s = s & "|[\xF8-\xFB]....[\x80-\xBF]"
    s = s & "|[\xFC-\xFD].....[\x80-\xBF]"
    s = s & "|[\xFE-\xFE]......[\x80-\xBF]"
    s = s & "|^[\x80-\xBF]"
    Set reg = New RegExp
    reg.Pattern = s
    IsUtf8 = Not reg.Test(str)
    Set reg = Nothing
End Function
复制代码

@echo off&setlocal enabledelayedexpansion
md ANSI文件夹  2>NUL 
md UTF-8文件夹 2>NUL
md Unicode文件夹 2>NUL
for /f "delims=" %%a in ('dir /a-d /b /s *.txt *.htm *.html') do (
	set gk=0
	enca -L zh_CN "%%a"|find /i "UCS-2" && set gk=1
	enca -L zh_CN "%%a"|find /i "UTF-8" && set gk=2
	if !gk! equ 1 (set "cho=Unicode文件夹")
	if !gk! equ 2 (set "cho=UTF-8文件夹")
	if !gk! equ 0 (set "cho=ANSI文件夹")
	if exist "!cho!\%%~na.txt" (
		set k=1
		for /l %%i in (1 1 255) do (
			if !k! equ 1 (
				if not exist "!cho!\%%~na-%%i%%~xa" (
					set "SN=%%i"
					set k=0
				)
			)		
		)
		move "%%a" "!cho!\%%~na-!SN!%%~xa"
	) else (
		move "%%a" "!cho!\%%~nxa"
	)
)
复制代码

    dir ANSI文件夹 /b | findstr /r ".*" || rd ANSI文件夹
dir UTF-8文件夹 /b | findstr /r ".*" || rd UTF-8文件夹
dir Unicode文件夹 /b | findstr /r ".*" || rd Unicode文件夹
复制代码

mshta http://bathome.net/s/hta/ t=iconv.load('a.html');b=iconv.checkBom(t);if(b=='undefined')b=iconv.toStr(t,'gb2312')?'gb2312':'utf-8';b | more
复制代码

mshta http://bathome.net/s/hta/ t=iconv.load('a.html');b=iconv.checkBom(t);if(b=='undefined')b=iconv.toStr(t,'utf-8')?'utf-8':'gb2312';b | more
复制代码

mshta http://bathome.net/s/hta/?string "t=iconv.load('a.html');list.charset().where(function(c){return iconv.toStr(t,c)})"|more
复制代码