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

'读取文件
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