这是一个二进制读写的例子(File I/O)
Private Sub Form_Load()Dim getValue() As Byte
Open "C:\Command.com" For Binary Access Read As #1
Get #1, , getValue()
Close #1Open "C:\1.com" For Binary Access Write As #2
Put #2, , getValue()
Close #2
End Sub
Private Sub Form_Load()Dim getValue() As Byte
Open "C:\Command.com" For Binary Access Read As #1
Get #1, , getValue()
Close #1Open "C:\1.com" For Binary Access Write As #2
Put #2, , getValue()
Close #2
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货