Try
ms = New IO.FileStream(strPath, IO.FileMode.Open, IO.FileAccess.Read)
br = New IO.BinaryReader(ms)
'读取文件
Dim b() As Byte = br.ReadBytes(ms.Length)
Dim ic As Integer
For i As Integer = 0 To b.Length - 5
ic = i
'这里检查标志,就是上面连续写2个 vbcrlf vbcrlf
Try
ms = New IO.FileStream(strPath, IO.FileMode.Open, IO.FileAccess.Read)
br = New IO.BinaryReader(ms)
'读取文件
Dim b() As Byte = br.ReadBytes(ms.Length)
Dim ic As Integer
For i As Integer = 0 To b.Length - 5
ic = i
'这里检查标志,就是上面连续写2个 vbcrlf vbcrlf