我找了一个看起来可行的方法替代：
程序代码：'读文件的前200个字节数据
Dim fInfo As New IO.FileInfo(path) 'path 文件路径
Dim fStream As New IO.FileStream(path, IO.FileMode.Open, IO.FileAccess.Read)
Dim br As New IO.BinaryReader(fStream)
Dim data() As Byte = br.ReadBytes(200)
Dim temp As String = ""
temp = System.Text.Encoding.GetEncoding("Shift_JIS").GetString(data)
br.Close()
fStream.Close()
大致这样。但是这个结果跟用InputString(fileNumber, 200)得到的结果却是一样的,InputString()不是应该是以字符来读入数据的吗？
没想明白这个问题，求教。