VB6.0对VB.NET二进制文件的读写

Private Sub WriteBinaryFile(filePath As String, data() As Byte)
    Dim fileNum As Integer
    fileNum = FreeFile
    Open filePath For Binary Access Write As #fileNum
    Put #fileNum, , data
    Close #fileNum
End Sub

Private Function ReadBinaryFile(filePath As String) As Byte()
    Dim fileNum As Integer
    Dim fileLength As Long
    Dim data() As Byte
    
    fileNum = FreeFile
    Open filePath For Binary Access Read As #fileNum
    fileLength = LOF(fileNum)
    ReDim data(fileLength - 1)
    Get #fileNum, , data
    Close #fileNum
    
    ReadBinaryFile = data
End Function

Imports System.IO

Private Sub WriteBinaryFile(filePath As String, data() As Byte)
    Using fs As New FileStream(filePath, FileMode.Create, FileAccess.Write)
        fs.Write(data, 0, data.Length)
    End Using
End Sub

Imports System.IO

Private Function ReadBinaryFile(filePath As String) As Byte()
    Using fs As New FileStream(filePath, FileMode.Open, FileAccess.Read)
        Dim data(fs.Length - 1) As Byte
        fs.Read(data, 0, data.Length)
        Return data
    End Using
End Function