需要引入命名空间

Imports System.IO

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

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

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

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

Return True@H_404_5@ End Function

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

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

byTmp = br.ReadBytes(fs.Length)

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

Return True End Function