Function Bin(FileName) Dim b Set b = CreateObject("ADODB.Stream") b.Type = 1 b.Open b.LoadFromFile FileName Bin = b.Read End Function复制代码