Convert binary base 64

[beckerm]

I'm trying to convert a binary file into a base 64 string so that I can put it in an XML file. I'm sure someone has already done this so I'm wondering if there is a nice class or dll out there I can use? Thanks.

 

[beckerm]

here is the function i got from the MS knowledge base, in case anyone is interested:

Function ReadBinData(ByVal strFileName As String) As Variant
    Dim lLen As Long
    Dim iFile As Integer
    Dim arrBytes() As Byte
    Dim lCount As Long
    Dim strOut As String
    
    'Read from disk
    iFile = FreeFile()
    Open strFileName For Binary Access Read As iFile
    lLen = FileLen(strFileName)
    ReDim arrBytes(lLen - 1)
    Get iFile, , arrBytes
    Close iFile
    
    ReadBinData = arrBytes
End Function

so my code is:

'encode
Set oElement = oDom.createElement("TEST")
oRoot.appendChild oElement
oElement.dataType = "bin.base64"
oElement.nodeTypedValue = ReadBinData(filepath)

'decode
m_Doc.Load xmlfilepath    
Set oNode = m_Doc.selectSingleNode("TEST")
byteArray = oNode.nodeTypedValue

Open outputfile For Binary As #1
Put #1, 1, byteArray
Close #1