6
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:\Users\user\Desktop\rats\test\test.txt」をbase64に変換したいという出力が欲しい
  2. 「test.txt」をbase64に変換すると、出力が得られませんでした
  3. filename="textbox1.text" を使用して「test.txt」を追加します
4

1 に答える 1