Option Explicit

Const CHUNK = 30000 'длина выходного файла, не более
Dim fso, extp, arg, infile, outfile, mt, s, n

If WScript.Arguments.Count = 0 Then
  MsgBox "Этот скрипт читает строки из входного файла и записывает в выходной файл," & vbLf & _
    "пока длина выходного файла не достигнет " & CHUNK & vbLf  & vbLf & _
    "Использование:" & vbLf & _
    WScript.scriptname & " ИмяФайла" & vbLf & _
    "или выделите файл в Проводнике и перетащите на значок скрипта."
  WScript.Quit
End If
arg = WScript.Arguments(0)
Set fso = CreateObject("scripting.filesystemobject")
  Set infile = fso.opentextfile(arg)
  extp = InStrRev(arg, ".")
  if extp = 0 then extp = len(arg) + 1
  Set outfile = fso.createtextfile(Left(arg, extp - 1) & "_1" & Mid(arg, extp))
  While Not infile.atendofstream
    s = infile.readline
    n = n + len(s) + 2
    if n > CHUNK then wscript.quit
    outfile.writeline s
  Wend