VB Script 怎么批量读取txt文件

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