Question

VB Script 怎么批量读取txt文件

比如一个文件夹中有100个txt文件
读取所有的txt文件搜寻一列数字，把搜寻到这列数字所在的txt文件复制到本地的一个文件夹下

Answer 1

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Dim Fld
Set Fld=fso.GetFolder(fso.GetParentFolderName(WScript.ScriptFullName))'获取脚本所在目录对象
Dim subFolder
subFolder=fso.BuildPath(Fld.Path,"subFolder")
If Not fso.FolderExists(subFolder) Then '建立子目录
     fso.CreateFolder subfolder
End If

Dim fl
Dim Text
For Each fl In Fld.Files
     If LCase(fso.GetExtensionName(fl.Name)) ="txt" Then '遍历目录下Txt文件
         Text=fl.OpenAsTextStream().ReadAll
         If InStr(Text,"findStr") > 0 Then '搜索字符串
            fl.Move subFolder & "\" '移动到子目录
         End If
      End If
 Next