自由之声论坛

Const size As Integer = 4096 
Dim bytes(4096) As Byte 
Dim numBytes As Integer 
numBytes = input.Read(bytes, 0, size) 
While numBytes > 0 
    output.Write(bytes, 0, numBytes) 
    numBytes = input.Read(bytes, 0, size) 
End While