【VB】二进制方式读取文本/文件Byte数组

2010-09-19 老系统内容 VB 二进制 文件

VB二进制读取文本/文件Byte数组：

Public Function ByteLoad(ByVal N As String) As Byte() '读取文件二进制数据
On Error GoTo Over
Dim Dat() As Byte, FileSize As Long '二进制数组,文件长度
FileSize = FileLen(N) '获取文件长度
ReDim Dat(FileSize - 1) As Byte '定义二进制数组长度
Open N For Binary As #65 '打开读取
    Get #65, , Dat
Close
ByteLoad = Dat '赋值
Over:
End Function

使用方法：

Dim F() As Byte()
F() = ByteLoad("C:\test.txt")

文章作者 Nuclear'Atk

上次更新 2010-09-19

许可协议 Nuclear'Atk（核攻击）网络安全实验室版权所有，转载请注明出处。