Salve oregon
Ho trovato questo:
Sub TestConvert()
Dim bytes
Dim B64String
With CreateObject("ADODB.Stream")
.Open
.Type = ADODB.adTypeBinary
.LoadFromFile "C:\Users\Admin\Desktop\Test.pdf"
bytes = .Read
.Close
End With
B64String = EncodeBase64(bytes)
End Sub
Private Function EncodeBase64(bytes) As String
Dim objXML As MSXML2.DOMDocument60
Dim objNode As MSXML2.IXMLDOMElement
Set objXML = New MSXML2.DOMDocument60
Set objNode = objXML.createElement("b64")
objNode.DataType = "bin.base64"
objNode.nodeTypedValue = bytes
EncodeBase64 = objNode.Text
Set objNode = Nothing
Set objXML = Nothing
End Function
Sulla riga ".Type = ADODB.adTypeBinary" mi da errore di run-time 424 "Necessario oggetto"