Issue with writing byte array to a file

Question

Under windows, when Evernote is installed, an api is also installed, which can be accessed through vba (for example).

Each notes can show its \"Resources\" (attached

Answer 1

In VB6, there’s a mysterious extra 12 bytes prepended to the content that is saved. Why? Because you saved the Variant structure as well as the contents of the Variant.

You need to "copy" the Variant content to Byte array, for example:

ReDim arrByte(0 To UBound(varBuffer) - LBound(varBuffer))

For i = 0 To UBound(varBuffer) - LBound(varBuffer)
  arrByte = varBuffer(i + LBound(varBuffer))
Next i

Answer 2

I had the same problem - some 12 byte header thrown at the top of every file written. It turns out that the PUT command doesn't quite know how to handle data of type Variant. I'm not sure of the exact cause, but my work around was to simply replace the PUT line:

    Put #iFileNum, lWritePos, vData

with this:

    Dim buffer() As Byte
    buffer = vData
    Put #iFileNum, lWritePos, buffer

Problem solved.