所有的二进制数字都以字节为单位,所以最高只能到255也就是十六进制的FF,
本人的办法是读出一个字节,转换成为用十六进制表示两个字节的字符串,
如:数字 1  -> ASCII "01"
    数字 16 -> ASCII "10"
    数字 253-> ASCII "FD"
这种方式较为通用。但文件的长度基本是会加倍,但很精确。

解决方案 »

  1.   

    参考base64的算法,也就是邮件发送附件的方法就可以了。
      

  2.   

    Private Function B2T(bt() as Byte) as String
    Dim strDesc As string
    Dim I As Integer
       For i=0 to Ubound(bt)
          strDesc=strDesc & Rihgt("00" & Hex(bt(i)),2)
       Next i
       B2T=strDesc
    End FunctionPrivate Function T2B(strSrc as string) as Variant
    Dim bLen as integer
    Dim bt() as byte
    Dim i    as Integer
       bLen=len(strSrc)/2
       ReDim bt(bLen-1)
       for i=0 to bLen
           bt(i)=Val("&H" & Mid(strSrc, i*2, 2))
       Next i
       T2B=bt
    End Sub