尿液混浊什么原因:VB中关于二进制文件的问题

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 14:43:15
Private Sub Command1_Click()
Dim a$, b$
Dim e As Long

Open "a.exe" For Binary As #1
e = LOF(1)
a$ = Space(e)
Get #1, , a$
Close #1

Open "b.exe" For Binary As #2
Put #2, , a$
Close #2
End Sub

为什么执行command1.click过程后“b.exe”文件大小超过“a.exe”,且不可执行?
“梦想种子”所说的不行啊,我运行时提示说下标越界,能在说详细一点吗?谢了。

Private Sub Command1_Click()
Dim a() As Byte

Open "a.exe" For Binary As #1
ReDim a(LOF(1) - 1)
Get #1, , a()
Close #1

Open "b.exe" For Binary As #2
Put #2, , a()
Close #2
End Sub

'不要用字符型,而用字节型。

你应一个字节一个字节的复制

e = LOF(1) e是文件1的长度
a$ = Space(e) 是e个空格
2中全是[空格当然不能执行