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