'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
