一个疑惑的问题？

Question

我在读加密的DBF文件头时，不知道应该如何读取ascii>128的字符
    Open App.Path & "\1.DBF" For Binary As #1
    fileHead = Input(20, #1)
    Open "c:\1.txt" For Append As #2
    Print #2, fileHead
    Close #2
    Close #1
用UltraEdit查看，如果Client.DBF有字符的ascii>128，那么在文本中就找不到对应；也就是说对于字符超过ascii>128的vb将跳过去
请教我改如何处理此类问题？

Answer 1

dim bnew(20) as byte
    
Open App.Path & "\1.DBF" For Binary As #1
fileHead = Input(20, #1)
    For i = 1 To 15
        bnew(i - 1) = Mid(fileHead, i, 1)
        Debug.Print Asc(bnew(i - 1))
    Next
Close #1
仍然是存在问题的，我发现可能是，读（Input函数）文件的问题
不知道各位还有什么更好的办法处理此类问题