[Petya V4sechkin]

Wens, VBS устроит?

Код:

Dim FSO, FIn, FOut, Cnt
Set FSO = CreateObject("Scripting.FileSystemObject")

Set FIn = FSO.OpenTextFile("1.txt", 1)
Set FOut = FSO.CreateTextFile("New.txt", True)

Cnt = 0
Do While Not FIn.AtEndOfStream And Cnt < 50
  FOut.WriteLine FIn.ReadLine
  Cnt = Cnt + 1
Loop

FOut.Close
FIn.Close