VB 二进制数据读写实例

代码如下：

Dim arrBinary() As Byte

Open "C:\123.exe" For Binary As #1
ReDim arrBinary(LOF(1) - 1) '重定义数组
Get #1, , arrBinary() '将文件的数据赋给arrBinary二进制数组变量
Close #1

Open "C:\456.exe" For Binary As #1
Put #1, , arrBinary() '将刚才的数据写到C:\456.exe文件中
Close #1

 

相关文章参考：

---

☆VB 二进制文件的操作

☆进制转化进10进制数 

☆VB 二进制文件的操作 

☆VB 二进制数组与十六进制字符串相互转换

☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

---

 

★VB部分相关文章推荐：★

☆VB 读写TXT文本文件函数

☆VB 提取TextBox 文本框中指定一行字符串

☆VB 获取汉字拼音的首字母

☆VB