瑞星卡卡安全论坛

vb程序
为什么有些文件打开没问题,但有些打开的时候,会提示"实时错误6" "溢出"

    fnum = FreeFile
    Open fname For Binary As #fnum
    num_bytes = LOF(fnum)      按调试后,定位在这里
    ReDim bytes(1 To num_bytes)
    Get #fnum, , bytes
    Close fnum

没事了..

忘记我定义整形了,应该为长整形