批量文件查找替换功能的vbs脚本

       .close
       end with
       End If

       If repwith <> "" Then
       tempstr=replace(tempstr, Findstr, repwith)
       set fsofile1=fso.OpenTextFile(file, 2, true)
                        fsofile1.WriteLine tempstr
       fsofile.close
       End if

                       
        Next

   for each folder in current.subfolders 
   Call find(folder.path)
   next

set fso=nothing
End Sub

msgbox "OK,查找的文件名保存在re.txt"