微信红包限制发不出去:VB中LOF函数溢出???请教高手!!!

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/27 22:32:32
我用代码打开一个十六进制文件,把它读到文本框中,
fnum = FreeFile
Open fname For Binary As #fnum

num_bytes = LOF(fnum) ..........报错误的地方“溢出”"fnum=1""num_bytes=0"

ReDim bytes(1 To num_bytes)
Get #fnum, , bytes
Close fnum

打开128M存储器导出的文件没问题,但是打开256M存储器导出的文件VB提示“溢出”,我编辑文件,把最后8个字节和结尾的00字节删掉,打开正常,请问有哪位高手知道什么原因??是我的系统文件缓存太小么?我的机器内存256M
FreeFile是为了得到空闲的文件号,没定义它!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!请问该怎么定义它呢???????????????????????????????????????谢谢!!!!!!!!!!!!!!!!!!!!!!!!!

FreeFile在哪儿定义的