Load Binary File to an Encoded String

Demonstrates how to load a binary file directly into a string encoded as base64, hex, URL, quoted-printable, etc.

Download Chilkat FileAccess ActiveX (freeware)

Dim fac As New CkFileAccess

Dim encodedStr As String

'  The 2nd argument specifies the encoding and may
'  be "base64", "hex", "url", or "qp".
encodedStr = fac.ReadBinaryToEncoded("sample.pdf","base64")
If (encodedStr = vbNullString ) Then
    Text1.Text = Text1.Text & fac.LastErrorText & vbCrLf
Else
    Text1.Text = Text1.Text & encodedStr & vbCrLf
End If