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
私が聞きたい質問:
- テキストファイル「C:\Users\user\Desktop\rats\test\test.txt」をbase64に変換したいという出力が欲しい
- 「test.txt」をbase64に変換すると、出力が得られませんでした
- filename="textbox1.text" を使用して「test.txt」を追加します