[Iska]

vbs находится в той же папке где и изменяемый файл. »

Тогда нужен другой код, поскольку данный код работает вовсе не с той же папкой, где находится скрипт, а с текущей папкой текущего диска. То, что они могут совпадать, не делает данный код корректным.

Файл "тяжелый" - от 100 до 450 Мб »

Это что ж за файлы такие — ПСС?! В данном случае использовать разбиение прочитанного содержимого таких объёмов в массив — крайне неудачное решение, как с точки зрения расхода памяти, так и производительности. Тут лучше использовать такой код:

Скрытый текст

Код:

Option Explicit

Const ForWriting = 2


Dim strFileName
Dim lngLineNumber4Replace
Dim strString4Replace

Dim strFullFileName

Dim i
Dim strContent


strFileName = "A_polyS.txt"
lngLineNumber4Replace = 12

If WScript.Arguments.Count = 1 Then
	strString4Replace = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		strFullFileName = .BuildPath(.GetParentFolderName(WScript.ScriptFullName), strFileName)
		
		If .FileExists(strFullFileName) Then
			strContent = ""
			
			With .OpenTextFile(strFileName)
				For i = 1 To 11
					strContent = strContent & .ReadLine() & vbCrLf
				Next
				
				strContent = strContent & strString4Replace & vbCrLf
				strContent = strContent & .ReadAll()
				
				.Close
			End With
			
			With .OpenTextFile(strFileName, ForWriting)
				.Write strContent
				.Close
			End With
		Else
			WScript.Echo "Can't find file [" & strFullFileName & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <String for replace>"
	WScript.Quit 1
End If

WScript.Quit 0

нужен обход по маске расширения »

Какой именно маске?

причем во все файлы »

«Все файлы» — где находятся?