преобразовать файл в вывод функции 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"
 IvanH25 мая 2012 г., 08:53
В чем проблема? Это ничего не возвращает? Вы пытались установить точку останова внутри функции, чтобы увидеть, что происходит? Наиболее вероятный ответ - неправильный путь (вы указываете только имя файла и требуется полный путь).

Ответы на вопрос(1)

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

Ваш ответ на вопрос