二进文件读取

算了 mychar Loop Close #1 参考:http://topic.youkuaiyun.com/t/20010620/08/164755.html 答案补充 晕 需要再用函数转换....用VB函数大全应该可以找到 ||| Open mFileName For Binary Access Read As #1 ReDim mychar(LOF(1)) As Byte Do While Not EOF(1) Get #1 1)For k = 0 To kTemp = Temp & mychar(k) & " "DoEventsNext kText1.Text = Temp mycharLoopClose #1Dim k As LongDim Temp As Stringk = UBound(mychar 有新的代码 答案补充 Dim mFileName As StringmFileName = "C:/Documents and Settings/Administrator/桌面/工程1.ico"Open mFileName For Binary Access Read As #1ReDim mychar(LOF(1)) As ByteDo While Not EOF(1)Get #1 我给你发邮件吧我调试过了 为什么我补充的答案没了