文件读写方面的问题,在线等待

Question

不要用字符串读嘛，把所有的东西读到一个数组里面
dim bytes(1 to n) as byte
n是文件的长度
然后get #1,,bytes就可以全部读到bytes数组里面了
写的时候用 put #2,,bytes就OK

Answer 1

不会。Private Sub Command1_Click()
Dim n As Long
     Dim arrBytes() As Byte
     
     Open "c:\windows\1stboot.bmp" For Binary As 1
     n = LOF(1)
     ReDim arrBytes(1 To n) As Byte
     Get 1, , arrBytes
     Close 1
     Open "c:\temp.bmp" For Binary As 1
        Put 1, , arrBytes
     Close 1
    MsgBox " ok！"
     
End Sub