adodb.stream读文件到数组的代码

1. Function filenum(filename,i)  
2. Dim st,s   
3. Set st= CreateObject("ADODB.Stream")  
4. st.Type = 2 '流类型为文本  
5. st.Mode = 3 '模式为读写  
6. st.Open  
7. st.LineSeparator=13   
8. st.LoadFromFile filename  
9. Do While Not St.EOS   
10. s = Split(st.readtext(), vbCrLf)     
11. Loop   
12. 'MsgBox UBound(s) total  
13. filenum=s(i)  
14. st.Close  
15. End function  
16.  
17.  
18. MsgBox filenum("file.txt",2)