VBScript anwenden um Verzeichniss Dateien editieren

Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
'Ordner mit den Dateien = Ordner in dem sich das Script befindet  
strFolder = fso.GetParentFolderName(WScript.ScriptFullName)
'Erweiterungen der Dateien die durchsucht werden sollen  
arrFileExtensions = Array("htm")  
'String welcher gesucht wird  
Const strSearch = "target=""_parent"" onclick=""window.event.cancelBubble=true;"" style='position:"  
'String der den Suchstring ersetzt  
Const strReplace = "target=""_blank"" onclick=""window.event.cancelBubble=true;"" style='position:"  
intFileEditCounter = 0
Set rootFolder = fso.GetFolder(strFolder)
'Funktion zum durchsuchen aufrufen, wenn auch Dateien in Unterordnern durchsucht   
'werden sollen muss der zweite Parameter auf 'True' gesetzt werden  
parseFolder rootFolder, False
Set fso = Nothing
WScript.Echo "Suchen und Ersetzen wurde abgeschlossen!" & vbNewLine & "In " & intFileEditCounter & " Datei(en) wurden Ersetzungen vorgenommen!"  

Function parseFolder(strFldr,boolRecursion)
	For each file In strFldr.Files
		For i = 0 To UBound(arrFileExtensions)
			If LCase(arrFileExtensions(i)) = LCase(fso.GetExtensionName(file.Path)) And Left(file.Name,5) = "slide" Then  
				Set f = fso.OpenTextFile(file.Path,1)
				If Not f.AtEndOfStream Then
					strContent = f.ReadAll()
					f.Close
					strNewContent = Replace(strContent,strSearch,strReplace,1,-1,vbTextCompare)
					If strContent <> strNewContent Then
						Set f = fso.OpenTextFile(file.Path,2)
						f.Write(strNewContent)
						f.Close
						intFileEditCounter = intFileEditCounter + 1
					End If
				Else
					f.Close
				End if
				Exit For
			End If
		Next
	Next
	
	If boolRecursion Then
		For Each subFolder in strFldr.SubFolders
			parseFolder subFolder, True
		Next
	End If
End Function