在VB中怎样用二进制读写文件，要求一次只读写一个字节，请给出代码

Question

Dim a  As String * 1

Answer 1

    Dim fNum                            As Integer
    Dim IsOpen                          As Boolean
    Dim sReadStr                        As Byte
    Dim TxtFileName                     As String
    
    IsOpen = False   
    TxtFileName = "C:\temp.txt"
    fNum = FreeFile(): strLine =""
    Open DBFFileName For Binary As #fNum
    IsOpen = True: Get #fNum, , sReadStr     *****就是它
    
    If IsOpen Then Close #fNum: IsOpen = False定义一个字节型的变量，则每次读一个字节，可以依此类推 
定义二个字节型的变量，则每次读二个字节