对二进制文件的读取

[nannet]

用VB如何打开二进制文件，顺序文件的可以打开，但二进制文件呢？

[nannet]

我这个新手能得到帮助很高兴分收到了吗？

[ttyp]

收到，谢谢

[cqq_chen]

还是用OPEN函数，详细用法查MSDN。

[ttyp]

下列代码以只允许写操作的二进制方式打开文件。

Open "TESTFILE" For Binary Access Write As #1

下列代码以只允许读的二进制方式打开文件；其他过程不可以读该文件。

Open "TESTFILE" For Binary Access Read Lock Read As

[nannet]

怎么用了这个方法我的程序死了？？？

[nannet]

能帮我分析一下吗？？？？？

Private Sub Command2_Click()
Dim File2 As Integer
Dim inbuf2 As String
File2 = FreeFile
Open "d:\setup2\lnac.dbf" For Binary Access Write As File2


Do While Not EOF(File2)
Get #File2, , inbuf2
Print inbuf2
Loop

End Sub

[ttyp]

Private Sub Command2_Click()
Dim File2 As Integer
Dim inbuf2 as byte
File2 = FreeFile
Open "d:\setup2\lnac.dbf" For Binary Access Read As File2


Do While Not EOF(File2)
Get #File2, , inbuf2
Print chr(inbuf2)
Loop

End Sub