关于二进制文件的生成与写操作

Question

生成名为filename的二进制文件：
Private Sub Command1_Click()
Dim filenum As Integer
filenum = FreeFile
Open "C:\filename" For Binary As #filenum
End Sub
写入：
Put #filenum ,Position,Varible

Answer 1

Private Sub Command1_Click()
dim bytes（）as byte
Dim filenum As Integer
'redim bytes(....）重新分配大小，当然也可定义为固定数组
filenum = FreeFile
Open "C:\filename" For Binary As #filenum
get #filenum,Position,bytes（） ‘在Position位置开始读取字节到bytes数组
如果循环读取则不需制定Position，如 get #filenum,,bytes（） 
put #filenum,Position,bytes（） ，在Position位置开始写入bytes数组内容
close #filenumEnd Sub其实所谓的文件分割合并就是这样实现的，你可以试试，动态数组就是为了可以自定义分割
大小，再新建一文件，把数组力的内容写进去，就是分割后的小文件