#include <Array.au3>
#include <File.au3>
$ParentPath=<FilePath>
Local $aFileList = _FileListToArray($ParentPath, "*")
If @error = 1 Then
MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.")
Exit
EndIf
If @error = 4 Then
MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.")
Exit
EndIf
$count1=0
For $i= 1 to $aFileList[0]
if StringInStr($aFileList[$i],"_") and not StringInStr($aFileList[$i],"APAC") and not StringInStr($aFileList[$i],"IGL") and not StringInStr($aFileList[$i],"ILP") then
$SmokeFolder= $ParentPath & "\" & $aFileList[$i]
Local $bFileList = _FileListToArray($SmokeFolder, "*.bat")
ConsoleWrite($aFileList[$i] & " >> " & $bFileList[1] & @CRLF)
$ChangedLine = '\\file4\develop\wmc_apps\QMC-Automation\Global_Test\Kill.vbs UFT.exe' & @CRLF
$ChangedLine = $ChangedLine & '<neededChange>' & @CRLF
$ChangedLine = $ChangedLine & '<neededChange>' & @CRLF
$ChangedLine = $ChangedLine &'<neededChange>' & @CRLF
$file = FileOpen ($SmokeFolder & "\" & $bFileList[1], 0 )
Dim $Contents
While 1
$Line = FileReadLine ( $file )
If @error Then
Exitloop
MsgBox "Error occured"
EndIf
$Contents = $ChangedLine & $Line & @CRLF
WEnd
FileClose ( $file )
$file = FileOpen ($SmokeFolder & "\" & $bFileList[1], 2 )
FileWrite ( $file, $Contents )
FileClose ( $file )
$count1=$count1+1
EndIf
Next
ConsoleWrite($count1)
