ADODB.Stream 二进制读取到的数据怎样放到byte数组中
Dim a(2) As Variant Dim ado As New ADODB.Stream ado.Type = 1 ado.Open ado.LoadFromFile "d:\1.tmp" a(0) = ado.read(1) a(1) = ado.read(1) a(2) = ado.read(1) Dim b(2) As Byte b(0) = a(0) b(1) = a(1) b(2) = a(2)
Dim ado As New ADODB.Streamado.Type = 1ado.Openado.LoadFromFile "d:\1.tmp"Dim b() As Byteb = ado.Read(3)Debug.Print b(0), b(1), b(2)