You can simply encode a binary or text file to a Base64 string using this sample code. The base64 string can be stored to a file using SaveAs method.
| ByteArray - encode a file to a base64 string (Base64 file) | |
|---|---|
'Convert a string to Base64
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")
'Convert a File to a Base64
ByteArray.ReadFrom "F:\data\vbs\del.vbs"
'Convert contents of the file to a base64
Base64String = ByteArray.Base64.String
Wscript.Echo "Base64 encoded file:" & vbCrLf & _
Base64String
'Save Base64 encoded data to a disk
ByteArray.Base64.SaveAs "F:\data\vbs\base64-del.vbs" | |
Works with safearray binary data - save/restore binary data from/to a disk, convert to a string/hexstring, codepage/charset conversions, Base64 conversion, etc.
ByteArray is a COM class specially designed to work with Microsoft Windows Scripting engines - VB Script and JScript in Active Server Pages or WSH and in CHM or HTA applications. It also works with VB Net, Visual basic (VBA - VB 5, VB 6, Word, Excel, Access, …), C#, J#, C++, ASP, ASP.Net, Delphi and with T-SQL OLE functions - see Use ByteArray object article. You can also use the object in other programming environments with COM support, such is PowerBuilder.
Source code for ByteArray is available within distribution license, please see License page for ASP file upload and ScriptUtilities.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz