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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set fac = CreateObject("Chilkat.FileAccess")

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

outFile.Close