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

내가 물어보고 싶은 질문 :파일 변환

  1. 을 내가 텍스트 파일 "C 변환 할 수있는 출력합니다 : \ 사용자 \ 사용자 \ 바탕 화면 \ 쥐를 \ 테스트 \ test.txt라는 TEST.TXT "을 는
  2. 나는 내가 변환 할 때 출력을 얻을 수 없습니다 BASE64합니다" "64 기수로
  3. 나는 파일 이름 = 사용"TEST.TXT "
  4. "내을 추가 "textbox1.text을
+0

무엇이 문제인가? 아무것도 돌려주지 않니? 함수 내부에 중단 점을 넣으려고 했습니까? 가장 가능성있는 대답은 경로가 잘못되었다는 것입니다 (파일 이름 만 지정하고 전체 경로가 필요합니다). – IvanH

답변

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