怎样打开二进制文件，并一个字节一个字节地读

Question

dim bytVar as Byte
Open 文件名 for Binary as #1   '打开
put #1,,bytVar                 '读

Answer 1

'    Purpose:
'     Author:吴文智
'       Date:2001-1
'Description:要试用本例请在窗体中填加一个按钮
'            然后在代码窗体中粘贴如下代码
'            Good luck!
Private Sub Command1_Click()
    Dim btyGet As Byte
    
    '以二进制打开文件
    Open "c:\autoexec.bat" For Binary As #1
    
    '循环读取文件内容
    Do While Not EOF(1)
        '读取一个字节,注意GET后的变量是什么类型,读取时就会按这个类型的长度来读
        'Get 的语法: Get 文件号,位置(省略时按缺省位置读),变量名(用来存放读出来的内容,这里可是二进制啊,要注意啦)
        Get #1, , btyGet
        MsgBox btyGet
    Loop
    
    '关闭文件
    Close #1
End Sub