一个疑惑的问题？

[cfans2002]

我在读加密的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将跳过去
请教我改如何处理此类问题？

[rainstormmaster]

用byte数组。

[cfans2002]

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函数）文件的问题
不知道各位还有什么更好的办法处理此类问题

[叶帆]

用Get #1,byt

[maskzha]

gz