Dim DAT() As Byte
Dim FileSize As Long '文件长度
FileSize = FileLen(文件名) '获取文件长度
ReDim DAT(FileSize - 1) As Byte
Open 文件名 For Binary As #1
Get #1, , DAT
Close
数据已经在DAT数组中了,你可以进行任意处理
欢迎分享,转载请注明来源:内存溢出
Dim DAT() As Byte
Dim FileSize As Long '文件长度
FileSize = FileLen(文件名) '获取文件长度
ReDim DAT(FileSize - 1) As Byte
Open 文件名 For Binary As #1
Get #1, , DAT
Close
数据已经在DAT数组中了,你可以进行任意处理
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)