这样肯定不行，不要老想关1024，到最后的时候，你必须计算字节数
下面代码供你参考

复制内容到剪贴板

代码:

    Dim aa() As Byte
    Open "c:\1.txt" For Binary As #1
    alen = LOF(1)
    b = alen Mod 1024
    Open "c:\2.txt" For Binary As #2
    i = alen
    Do While i > 0
        If i < 1024 Then
            ReDim aa(i)
            i = 0
        Else
            i = i - 1024
            ReDim aa(1024)
        End If
        Get #1, , aa
        Put #2, , aa
    Loop
    Close #2
    Close #1
   
   
   

这样试试
ReDim temp(LOF(1)-1) As Byte

晕
比如你有1024个字节
redim a(1024) 实际上数组a实际上是有1025个,因为第一个是a(0)，最后一个是a(1024)