shuzai 当前离线
上等兵
Function Bin(FileName) Dim b Set b = CreateObject("ADODB.Stream") b.Type = 1 b.Open b.LoadFromFile FileName Bin = b.Read End Function复制代码
garyng (GaryNg)当前离线
少尉
TOP