热门标签：外呼系统群龙岩400电话申请上海办理400电话选号外呼系统说话声音小怎么办天津智能外呼系统排名墨西哥地图标注app企业400电话办理价钱低机器人打电销适用于美业吗智云亿呼电话机器人Function filenum(filename,i) Dim st,s Set st= CreateObject("ADODB.Stream") st.Type = 2 '流类型为文本 st.Mode = 3 '模式为读写 st.Open st.LineSeparator=13 st.LoadFromFile filename Do While Not St.EOS s = Split(st.readtext(), vbCrLf) Loop 'MsgBox UBound(s) total filenum=s(i) st.Close End function
