(VBScript) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = CreateObject("Chilkat.BinData")

' 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
    outFile.WriteLine("Failed to load file.")
    WScript.Quit
End If

b64Str = bd.GetEncoded("base64")
outFile.WriteLine(b64Str)

' Now write the base64 string back to the binary PDF file:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd2 = CreateObject("Chilkat.BinData")
success = bd2.AppendEncoded(b64Str,"base64")
success = bd2.WriteFile("qa_output/helloWorld.pdf")

outFile.Close