Function ReadBinaryFile(FileName)
Const adTypeBinary = 1

DIM BinaryStream

set BinaryStream = CreateObject("ADODB.Stream")

BinaryStream.Type = adTypeBinary

BinaryStream.Open
BinaryStream.LoadFromFile FileName

ReadBinaryFile = BinaryStream.Read
END Function
반응형

+ Recent posts