需要引入命名空间
Imports System.IO
'二进制流 转文件 Public Function BinaryToFile(ByVal byTmp As Byte(), ByVal path As String) As Boolean Dim fs As FileStream Dim bwr As BinaryWriter
fs = New FileStream(path, FileMode.Create) bwr = New BinaryWriter(fs)
bwr.Write(byTmp) bwr.Flush()
bwr.Close() fs.Close() fs.Dispose()
Return True End Function
'文件转二进制流,读取文件二进制流 Public Function FileToBinary(ByRef byTmp As Byte(), ByVal path As String) As Boolean Dim fs As FileStream Dim br As BinaryReader
fs = New FileStream(path, FileMode.Open, FileAccess.Read) br = New BinaryReader(fs)
byTmp = br.ReadBytes(fs.Length)
br.Close() fs.Close() fs.Dispose()
Return True End Function
