Dim tBytes() As Byte
FN=FreeFile
Open FileName For Binary As #FN
ReDim tBytes(LOF(FN-1)) '读文件字节数并减一,以这个数定义数组。
Get #FN,1,tBytes() '读数组,这个时候数组的字节数是LOF(FN),因为有0的存在,所以上面要减1。这个数组和文件一样大,所以是读整个文件。
Close #FN
FN=FreeFile
Open FileName For Binary As #FN
ReDim tBytes(LOF(FN-1)) '读文件字节数并减一,以这个数定义数组。
Get #FN,1,tBytes() '读数组,这个时候数组的字节数是LOF(FN),因为有0的存在,所以上面要减1。这个数组和文件一样大,所以是读整个文件。
Close #FN
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货