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

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

success = 0

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:
set bd2 = CreateObject("Chilkat.BinData")
success = bd2.AppendEncoded(b64Str,"base64")
success = bd2.WriteFile("qa_output/helloWorld.pdf")

outFile.Close