重庆渝北天气预报一周:VB中LOF函数溢出的问题!!!谢谢!!!

来源:百度文库 编辑:高考问答 时间:2024/04/29 01:47:08
我用代码打开一个十六进制文件,把它读到文本框中,
fnum = FreeFile ........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字节删掉,打开正常,请问有哪位高手知道什么原因??FreeFile是为了得到空闲的文件号,没定义它!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!请问该怎么定义它呢???????????????????????????????????????谢谢!!!!!!!!!!!!!!!!!!!!!!!!!好象有个属性是指范围的1~255和256~511????默认1~255??和没设置这个有关么?是不是从256M存储器导出的文件超过255这个范围了???

num_bytes 是怎么定义的?你可以尝试把它定义成long试试