Private Sub Command6_Click()
Dim TepByte As Byte
Text2.Text = ""
  Open "d:\mytext3.txt" For Binary As #1
  For i = 1 To LOF(1)
    Get #1, , TepByte
    Text2.Text = Text2.Text+chr(TepByte)
    Next i
    Close #1
End Sub

对 ，我也想问下这类的问题。明明知道两个数，但不知道怎么去把他们组合在一起，哪位能给解决一下。
比如说 “海”字存储在二进制中的形式是 126 196 这样的两个数字，不 知道我这么说是否的恰当。但我怎么去把他们读取并表示成汉字 “海”呢 ？如果是别的类型的，比如说是double我可以用copymemory函数把他表示出来，但关于汉字，我不太了解，哪位能够帮下忙？谢谢了先。

Long

这个很简单呀,把二进制的文件读入到一个Byte的数组中,再使用StrConv函数就可以了.代码如下:

Private Sub Command1_Click()
Dim TepByte() As Byte
Dim Byte1 As Byte
Dim num As Long

Text2.Text = ""
Open "d:\Test.txt" For Binary As #1
For i = 1 To LOF(1)
    Get #1, , TepByte
    num = num + 1
Next i
ReDim TepByte(num)
For i = 1 To LOF(1)
    Get #1, , Byte1
    TepByte(i - 1) = Byte1
Next i
Text2.Text = StrConv(TepByte, vbUnicode)
Close #1
End Sub

也可以简写为以下代码:
Private Sub Command1_Click()
Dim TepByte() As Byte
Dim Byte1 As Byte
Dim num As Long

Text2.Text = ""
Open "d:\Test.txt" For Binary As #1
For i = 1 To LOF(1)
    Get #1, , Byte1
    num = num + 1
    ReDim Preserve TepByte(num)

    TepByte(i - 1) = Byte1
Next i
Text2.Text = StrConv(TepByte, vbUnicode)
Close #1
End Sub

谢谢了，回去我看看。

恩，发现这个方法很好用，谢谢了

顶~~~~~~~~~~~~~~~~~~~~~~~~~~~学习啦