[Iska]

Код:

Option Explicit

Dim dtNow

Dim strSourceFile
Dim iCount
Dim i, j
Dim sValue


dtNow = Now()

strSourceFile = "C:\Мои проекты\0254\полная фигня 2.txt"
iCount = 2^10

Randomize Timer

With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile(strSourceFile, True)
	For i = 1 To iCount
		sValue = ""
		
		For j = 1 To iCount
			sValue = sValue & Chr(Int(96 * Rnd()) + 32)
		Next
		
		.Write sValue
	Next
	
	.Close
End With

WScript.Echo DateDiff("s", dtNow, Now())

WScript.Quit 0

Если мне не изменяет память — максимальный размер строки должен вертеться в интервале примерно от 512 до 4096 (хотя мог уже и запамятовать, а ещё раз тестировать лень).