读取一个图片文件错误

Question

读取一个图片文件,代码如下:
lngFileNum = FreeFile
    
    Open strFilePath For Binary As lngFileNum    lngLen = LOF(lngFileNum) / 2
    
    ReDim bytFile(lngLen * 2)
    
    Do Until EOF(lngFileNum)
        Get lngFileNum, , bytFile(lngI)
        lngI = lngI + 1
    Loop
    
    lngMax = lngI有时候图片可以正常读,但有的图片就不行在第6行的:
        Get lngFileNum, , bytFile(lngI)
处出现超出索引范围是什么意思?

Answer 1

lngFileNum   =   FreeFile 
        
        Open   strFilePath   For   Binary   As   lngFileNum         lngLen   =   LOF(lngFileNum) 
        
        ReDim   bytFile(lngLen-1) 
        
        Get   lngFileNum,   ,   bytFile 
 
        
        lngMax   = lngLen