读写二进制文件 VB.NET

需要引入命名空间

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!