VB6: Read and Write Byte Arrays to Files in Visual Basic (Code Library)

Nothing radical here, but handy routines.

    Public Sub ReadByteArray(ByVal strPath As String, ByRef arrData() As Byte)

        Dim lngFile As Long

        ' open the file
        lngFile = FreeFile
        Open strPath For Binary Access Read As lngFile

        ' allocate enough memory to read file in one go
        ReDim arrData(1 To LOF(lngFile)) As Byte

        ' read blob
        Get lngFile, , arrData
        
        ' close file
        Close lngFile
       
    End Sub

     

    Private Sub WriteByteArray(ByVal strPath As String, ByRef arrData() As Byte)

        Dim lngFile As Long
       
        ' open the file
        lngFile = FreeFile()
        Open strPath For Binary Access Write As lngFile
       
        ' write blob
        Put lngFile, , arrData
       
        ' close file
        Close lngFile

    End Sub