VB如何读写二进制文件!

Question

如题!

Answer 1

open yourfilename for binary as #1
get #1,,buff 'read file
put #1,,buff'write file
close #1

Answer 2

读文件时，要给buff一个足够大的缓冲区，一般这样：
dim buff() as byte
dim i as long
i=filelen(filename)
redim buff(i-1)

Answer 3

open "c:\windows\win.exe" for binary as #1
get #1,12345,abc

Answer 4

Open "g:\aspnew\news.js" For Input As #1For int1 = 1 To Num
    Line Input #1, str1
    Text4(int1 - 1).Text = str1
NextClose #1

Answer 5

呵呵,不好意思,让大家见效了,我是挺弱智
我是这样读的,可是还是一对乱码,我想看见文本,怎么办
   Open App.Path & "\test.SHP" For Binary As #1
   Open App.Path & "\test.txt" For Output As #2
     
   Do While Not EOF(1)
      Line Input #1, strTmp
      Print #2, strTmp
   Loop
   Close #1
   Close #2
   MsgBox "OK"