将文件转换为base64函数输出 [英] convert file to base64 function output

问题描述

Public Function ConvertFileToBase64(ByVal fileName As String) As String

    Dim ReturnValue As String = ""

    If My.Computer.FileSystem.FileExists(fileName) Then
        Using BinaryFile As FileStream = New FileStream(fileName, FileMode.Open)
            Dim BinRead As BinaryReader = New BinaryReader(BinaryFile)
            Dim BinBytes As Byte() = BinRead.ReadBytes(CInt(BinaryFile.Length))
            ReturnValue = Convert.ToBase64String(BinBytes)
            BinaryFile.Close()
        End Using
    End If
    Return ReturnValue
End Function

我想问的问题:

1. 我想要的输出是我想要转换一个文本文件C:UsersuserDesktop ats est est.txt"转base64
2. 当我将test.txt"转换为 base64 时，我无法获得任何输出
3. 我使用 filename="textbox1.text" 添加我的test.txt"

推荐答案

   Public Function ConvertFileToBase64(ByVal fileName As String) As String
        Return Convert.ToBase64String(System.IO.File.ReadAllBytes(fileName))
    End Function

这篇关于将文件转换为base64函数输出的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！