程序中出错，紧急求助！

[sleilei]

帮忙看一段程序，我写的一个文件拷贝的程序，不知错误在什么地方 ：
Dim c() As Long
Dim a, m
Dim buffer As Long

Private Sub Command1_Click()
m = 0
Open Text1.Text For Binary As #1
a = LOF(1)
ReDim c(a - 1) As Long
For i = 1 To a
Get #1, i, buffer
c(m) = buffer
m = m + 1
b = m - 1
Next i
Close #1
End Sub

Private Sub Command2_Click()
Open Text2.Text For Binary As #2
For m = 0 To b
Put #2, m, c(m)
Next m
Close #2
End Sub
运行command2_click时出现“错误代号63，记录号错误”的出错提示。

[lxqlogo0]

用filecopy函数不就全搞定了吗？

[zhuangbx220]

sleilei (雷磊) ,你那样拷贝文件慢 得跟蜗牛一样，如果要那样子拷贝文件也要写成：

Dim c() As byte

Private Sub Command1_Click()
Open Text1.Text For Binary As #1

ReDim c(LOF(1))
Get #1, , c
Close #1
End Sub

Private Sub Command2_Click()
Open Text2.Text For Binary As #2
Put #2, , c
Close #2
End Sub

[Sean918]

用　ｆｉｌｅｃｏｐｙ　函数ｃｏｐｙ文件！

用　ｎａｍｅ　函数重命名文件名！！

２句话搞定的事！

[sleilei]

谢谢你，zhuangbx220(星) 还想再请教一点，就是为什么这个程序不能进行可执行文件的拷贝，非常感激。