私がやろうとしているのは、gif ファイルをエンコードして、XML ドキュメントに含めることです。これは私が今持っているものですが、うまくいかないようです。
Function gifToBase64(strGifFilename)
On Error Resume Next
Dim strBase64
Set inputStream = WScript.CreateObject("ADODB.Stream")
inputStream.LoadFromFile strGifFilename
strBase64 = inputStream.Text
Set inputStream = Nothing
gifToBase64 = strBase64
End Function