преобразовать файл в вывод функции base64
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
Вопросы, которые я хочу задать:
Я хочу получить выходные данные, которые я хочу преобразовать в файл base64 @ "C: \ Users \ user \ Desktop \ rats \ test \ test.txt" Я не смог получить никакого вывода, когда я преобразовал "test.txt" в base64 Я использую filename = "textbox1.text", чтобы добавить свой "test.txt"