Не по теме. На будущее: принято так — «Один вопрос — одна тема».
читать дальше »
Код:
Option Explicit
Dim strSourceFile
Dim strDestFile
Dim lngLines
Dim i
Dim lngFileNumber
Dim objTSSource
Dim objTSDest
Dim strLine
strSourceFile = "C:\Песочница\008\Source.txt"
strDestFile = "C:\Песочница\008\Destination$.txt"
lngLines = 57
i = 0
lngFileNumber = 0
With WScript.CreateObject("Scripting.FileSystemObject")
Set objTSSource = .OpenTextFile(strSourceFile)
Set objTSDest = .CreateTextFile(Replace(strDestFile, "$", CStr(lngFileNumber)), True)
Do Until objTSSource.AtEndOfStream
strLine = objTSSource.ReadLine()
i = i + 1
If i > lngLines Then
objTSDest.Close
i = 1
lngFileNumber = lngFileNumber + 1
Set objTSDest = .CreateTextFile(Replace(strDestFile, "$", CStr(lngFileNumber)), True)
End If
objTSDest.WriteLine strLine
Loop
objTSDest.Close
objTSSource.Close
Set objTSDest = Nothing
Set objTSSource = Nothing
End With
WScript.Quit 0
