GoFuckYourself.com - Adult Webmaster Forum - View Single Post

citizen tower · 06-01-2007, 10:25 PM

I am trying to add two byte arrays together... I don't work with byte arrays too often so this is new to me. Would the following code work?

Code:

Function AddByteArrays(arr1() As Byte, arr2() As Byte) As Byte()
    Dim tmpByte() As Byte
    ReDim tmpByte(0)
    Dim I As Integer
    For I = 0 To UBound(arr1)
        tmpByte(I) = arr1(I)
        ReDim Preserve tmpByte(I + 1) As Byte
    Next
    I = I + 1
    For a = 0 To UBound(arr2)
        tmpByte(I) = arr2(a)
        ReDim Preserve tmpByte(I + 1) As Byte
        I = I + 1
    Next
    ReDim Preserve tmpByte(UBound(tmpByte) - 1)
    AddByteArrays = tmpByte
End Function