vb6 文件转base64

在VB6中将文件转换为Base64可以使用以下代码：

Function FileToBase64(filePath As String) As String
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    
    stream.Type = 1 ' Binary
    stream.Open
    stream.LoadFromFile filePath
    
    Dim bytes() As Byte
    bytes = stream.Read
    
    Dim base64String As String
    base64String = EncodeBase64(bytes)
    
    FileToBase64 = base64String
End Function

Function EncodeBase64(bytes() As Byte) As String
    Dim dom As Object
    Set dom = CreateObject("MSXML2.DOMDocument")
    
    Dim elem As Object
    Set elem = dom.createElement("tmp")
    
    elem.DataType = "bin.base64"
    elem.nodeTypedValue = bytes
    
    EncodeBase64 = Replace(elem.Text, vbLf, "")
End Function

使用上述代码，你可以将文件路径作为参数传递给`FileToBase64`函数，它将返回文件的Base64字符串表示。请确保在使用之前将`MSXML2`库添加到你的项目引用中。
#### 引用[.reference_title]
- *1* *3* [java：文件转base64,支持图片和doc/csv/pdf等常用文件](https://blog.csdn.net/qiaodaima0/article/details/107047424)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down1,239^v3^insert_chatgpt"}} ] [.reference_item]
- *2* [input file 文件转base64](https://blog.csdn.net/liwan09/article/details/109689903)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down1,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]