QueryCode.vbs 文本文件编码查询工具

'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