Querycode. vbs, a text file encoding Query Tool

Download querycode. vbs (756.00 bytes) from the text file encoding Query Tool)
After Downloading this file, you can query it.

Below is the detailsCode
'Querycode. vbs by: fastslz
'Batch query is supported and can be placed in sendto extended applications.

Set files = wscript. Arguments
If files. Count = 0 then
Msgbox "please drag the file to be queried to this file! ", Vbinformation," file encoding query tool by: fastslz"
End if
For I = 0 to files. Count-1
File = files (I)
Call checkcode ("encoding :")
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