Visual Basic 6.0

Convert any File to Base64 (and back)

Demonstrates how to get the contents of any file as a base64 string, and then write it back. Visual Basic 6.0

Dim success As Long
success = 0

Dim bd As New ChilkatBinData

' This example will load a PDF and return it as a base64 string.
success = bd.LoadFile("qa_data/pdf/helloWorld.pdf")
If (success <> 1) Then
    Debug.Print "Failed to load file."
    Exit Sub
End If

Dim b64Str As String
b64Str = bd.GetEncoded("base64")
Debug.Print b64Str

' Now write the base64 string back to the binary PDF file:
Dim bd2 As New ChilkatBinData
success = bd2.AppendEncoded(b64Str,"base64")
success = bd2.WriteFile("qa_output/helloWorld.pdf")