[Iska]

Если верно то, что Вы указали, на WSH:

Код:

Option Explicit

Dim objTS
Dim i


With WScript.CreateObject("Scripting.FileSystemObject")
	Set objTS = .OpenTextFile("E:\Песочница\0247\0001.txt")
	
	Do Until objTS.AtEndOfStream
		With .CreateTextFile(objTS.ReadLine())
			For i = 1 To 9
				.WriteLine(objTS.ReadLine())
			Next
			
			.Close
		End With
	Loop
	
	Set objTS = Nothing
End With

WScript.Quit 0