需要引入命名空间@H_403_1@

Imports System.IO@H_403_1@

'二进制流 转文件
Public Function BinaryToFile(ByVal byTmp As Byte(),ByVal path As String) As Boolean
Dim fs As FileStream
Dim bwr As BinaryWriter@H_403_1@

fs = New FileStream(path,FileMode.Create)
bwr = New BinaryWriter(fs)@H_403_1@

bwr.Write(byTmp)
bwr.Flush()@H_403_1@

bwr.Close()
fs.Close()
fs.Dispose()@H_403_1@

Return True
End Function@H_403_1@

'文件转二进制流,读取文件二进制流
Public Function FileToBinary(ByRef byTmp As Byte(),ByVal path As String) As Boolean
Dim fs As FileStream
Dim br As BinaryReader@H_403_1@

fs = New FileStream(path,FileMode.Open,FileAccess.Read)
br = New BinaryReader(fs)@H_403_1@

byTmp = br.ReadBytes(fs.Length)@H_403_1@

br.Close()
fs.Close()
fs.Dispose()@H_403_1@

Return True End Function@H_403_1@