adodb.stream读文件到数组的代码
摘要：Functionfilenum(filename,i)Dimst,sSetst=CreateObject("ADODB.Stream")st...
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)
【adodb.stream读文件到数组的代码】相关文章：
★ vbs 获取当前目录文件数量的代码(不包括子文件夹中的)
上一篇：
vbs的sort排序
下一篇：
利用sql语句复制一条或多条记录