2012-05-24 147 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