主题：FileSys用法中编码的问题？

mark txt编码

全局代码

Public Function GetFileEncodeType(filename As String) As  System.Text.Encoding
Dim fs = new System.IO.FileStream(filename, System.IO.FileMode.Open, System.IO.FileAccess.Read)
Dim  br = new System.IO.BinaryReader(fs)
Dim buffer = br.ReadBytes(2)
If buffer(0) >= &HEF Then
    If buffer(0) = &HEF AndAlso buffer(1) = &HBB
       
        Return System.Text.Encoding.UTF8
    Else If buffer(0) = &HFE AndAlso buffer(1) = &HFF
       
        Return System.Text.Encoding.BigEndianUnicode
       
    Else If buffer(0) = &HFF AndAlso buffer(1) = &HFE
       
        Return System.Text.Encoding.Unicode
       
    Else
       
        Return System.Text.Encoding.Default
    End If
Else
    Return System.Text.Encoding.Default
End If
br.close
fs.close
End Function

调用函数

Dim file As String = "g:\test.txt"
Dim s As String = FileSys.ReadAllText(file, GetFileEncodeType(file))
msgbox(s)