QueryCode.vbs 文本文件編碼查詢工具

    使用vbs實現(xiàn)文本文件編碼的查詢的代碼，需要的朋友可以參考下。
    只要下載此文件后便可以查詢了.
    下面是詳細代碼
    代碼如下:
    'QueryCode.vbs BY: fastslz
    '支持批量查詢，可以放在SendTo擴展應用
    set files=WScript.Arguments
    if files.Count=0 Then
    MsgBox "請將要查詢的文件拖動到這個文件里！ ", vbInformation, "文件編碼查詢工具 BY: fastslz"
    end if
    for i=0 To files.Count-1
    file=files(i)
    Call CheckCode ("　　　編碼為:")
    next
    Function CheckCode (Usage)
    Dim slz
    set slz = CreateObject("Adodb.Stream")
    slz.Type = 1
    slz.Mode = 3
    slz.Open
    slz.Position = 0
    slz.Loadfromfile file
    Bin=slz.read(2)
    if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then
    Codes="UTF-8"
    elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then
    Codes="Unicode"
    else
    Codes="GB2312"
    end if
    WScript.echo file,Usage,Codes
    slz.Close
    set slz = Nothing
    End Function