2012-05-24 52 views
2
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功能输出

  1. 我想要的输出,我想转换一个文本文件“C:\用户\用户\桌面\老鼠\测试\ test.txt的” 为Base64
  2. 我无法得到任何输出,当我转换‘的test.txt’为base64
  3. 我使用的文件名=‘textbox1.text’加我‘的test.txt’
+0

什么问题?它没有返回什么?你是否试图在函数内部放置断点来看看发生了什么?最可能的答案是路径是错误的(只给出一个文件名,并且需要一个完整的路径)。 – IvanH

回答

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