filenum 相关的软件列表

首页

VBS 批量读取文件夹内所有的文本到Excel的脚本

2020-02-16 标签:vbs,批量,读取,文件夹,所有的,文本,excel,脚本,实现,代码,如下,code,done,kangkang,option,explicit,optional,better,use

实现代码如下: 'This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Di

首页

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

2020-02-16 标签:adodb,stream,文件,数组,代码,function,filenum,filename,i,dim,st,s,set,type,类型,文本

Function filenum(filename,i) Dim st,sSet st= CreateObject("ADODB.Stream") st.Type = 2 '流类型为文本 st.Mode = 3 '模式为读写 st.Open st.LineSeparator=13st.LoadFro