用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > .Net技术 > VB.Net

VB.NET 二进制文件读写函数

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2011-08-13 12:52:49
VBScript code复制代码
'读取文件
Public Shared Function ReadFile(ByVal fileName As String) As Byte()
    Dim fs As New FileStream(fileName, FileMode.Open)
    Dim buffer As Byte() = New Byte(fs.Length - 1) {}
    Try
        fs.Read(buffer, 0, buffer.Length)
        fs.Seek(0, SeekOrigin.Begin)
        Return buffer
    Catch
        Return buffer
    Finally
        If fs IsNot Nothing Then
            fs.Close()
        End If
    End Try
End Function

'写入文件
Public Shared Function WriteFile(ByVal pReadByte As Byte(), ByVal fileName As String) As Boolean
    Dim fs As New FileStream(fileName, FileMode.OpenOrCreate)
    Try
        fs.Write(pReadByte, 0, pReadByte.Length)
    Catch
        Return False
    Finally
        If fs IsNot Nothing Then
            fs.Close()
        End If
    End Try
    Return True
End Function

Tags:FileStream 文件读写 VB.NET

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      100%(6)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论