Const ForReading = 1
Const ForWriting = 2

intRep = 0
strPng = ".png"

	For count = 0 to 5
    		intNext = intRep+1

		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.OpenTextFile("C:\BatTest\FindReplaceIterate\test.xml", ForReading)

		strText = objFile.ReadAll
		objFile.Close
		strNewText = Replace(strText, (intRep&".jpg"), (intNext&(".jpg")))

		Set objFile = objFSO.OpenTextFile("C:\BatTest\FindReplaceIterate\test.xml", ForWriting)
		objFile.WriteLine strNewText
		objFile.Close
		intRep = intRep+1





	Next