读取的文件的格式全部保留在写的文件中 不知道是不是你的意思'读写二进制文件 Private Sub Command1_Click() Dim n As Long Dim arrBytes() As Byte
'读出数据 Open "d:\draw.bin" For Binary As 1 n = LOF(1) ReDim arrBytes(1 To n) As Byte Get 1, , arrBytes Close 1 '写入数据 Open "d:\aaa.bin" For Binary As 2 Put 2, , arrBytes Close 2
不知道是不是你的意思'读写二进制文件
Private Sub Command1_Click()
Dim n As Long
Dim arrBytes() As Byte
'读出数据
Open "d:\draw.bin" For Binary As 1
n = LOF(1)
ReDim arrBytes(1 To n) As Byte
Get 1, , arrBytes
Close 1
'写入数据
Open "d:\aaa.bin" For Binary As 2
Put 2, , arrBytes
Close 2
End Sub
我怎么看到aaa.bin里的符号和输入的原文一样啊