怎么在不打开文件的情况下得到文件的编码？

[懒得去死]

WINDOWS下怎么在不打开文件的方式下得到文件的编码？

[ljc007]

'QueryCode.vbs  BY: fastslz             http://bbs.cn-dos.net    2007-12-06
'支持批量查询，可以放在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

[gernal_dn]

这要看你对“打开”这个概念如何界定。
如果从程序的角度看，如果不打开文件，将得不到文件的任何信息，能得到的只是文件名所在文件系统的信息，如文件名、创建时间、占硬盘空间等，不可能得到文件编码！
如果指的是“非独占式打开”，那到可以做到。方法1，自己编一个软件，将功能整合到鼠标右键功能菜单中；方法2，UltraEdit可以以非独占方式打开文件。

[drifter250771]

“文件的编码”是什么意思？