呃,你想获取多少都可以的啊
Dim byteData(3) As Byte Dim strFilePath As String = "d:\test.txt" Dim fs As New System.IO.FileStream(strFilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)fs.Read(byteData, 0, byteData.Length) msgbox(byteData(0))msgbox(byteData(1))msgbox(byteData(2))msgbox(byteData(3))
Dim byteData(3) As Byte
Dim strFilePath As String = "d:\test.txt"
Dim fs As New System.IO.FileStream(strFilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)fs.Read(byteData, 0, byteData.Length)
msgbox(byteData(0))msgbox(byteData(1))msgbox(byteData(2))msgbox(byteData(3))