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