Functionfilenum(filename,i)

Dimst,s

Setst=CreateObject("ADODB.Stream")

st.Type=2'流类型为文本

st.Mode=3'模式为读写

st.Open

st.LineSeparator=13

st.LoadFromFilefilename

DoWhileNotSt.EOS

s=Split(st.readtext(),vbCrLf)

Loop

'MsgBoxUBound(s)total

filenum=s(i)

st.Close

Endfunction

MsgBoxfilenum("file.txt",2)