请教动态数组问题！

Question

我定义了一个字节型动态数组：
 Dim ByteData() As Byte
   
 ReDim ByteData(8000) As Byte用这个数组来存读取的二进制文件数据，然后传给客户端。但是当我把数组Redim的时候，大小不能超过8000多，一旦超过了，当我传文件的时候就提示我说超过了buffer的大小，传的数据将被截取。我看到一些例子程序里面动态数组的大小都可以设到很大，为什么我的却不行？ 这里所说的缓冲区大小难道和我的机器有关？？？请各位好心大侠指教！

Answer 1

“当我传文件的时候就提示我说超过了buffer的大小，传的数据将被截取。”是你自己的程序提示的？

Answer 2

先用filelen求得文件的大小 Dim ByteData() As Byte
 Dim len = filelen("文件名")
 ReDim ByteData(len) As Byte