Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код: SplitSize = 10 * 1024 * 1024 Set FSO = CreateObject("Scripting.FileSystemObject") Set stdin = fso.GetStandardStream(0) Count = 0 Set CurrFile = FSO.CreateTextFile(Date & Replace(Time,":",".") & Count,1) Do Until stdin.AtEndOfStream CurrFile.Write stdin.Read(1024) Size = Size + 1024 If (Size => SplitSize) Then Count = Count + 1 CurrFile.Close Set CurrFile = FSO.CreateTextFile(Date & Replace(Time,":",".") & Count,1) Size = 0 : Data = "" End If Loop CurrFile.Close |
|