'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