[ShaddyR]

programmist72, практически по нику

Код: Sub EnlargeMFT() Dim i As Long, s As String, fld As String, fs As FileSystemObject, a As TextStream fld = "c:\(Enl_MFT)" Set fs = CreateObject("Scripting.FileSystemObject") fs.CreateFolder (fld) For i = 1 To 70000 s = fld & "\" & LTrim(Str$(i)) & ".zzz" Set a = fs.CreateTextFile(s, True) a.Write ("") a.Close Next i Set fs = Nothing End Sub Это макрос на VBA. Как использовать думаю разберешься. Написан за 5 минут. Работает Вместо 70000 можно ставить желаемое число файлов. Чем больше - тем больше MFT. На диске перед запуском не должно быть папки "(Enl_MFT)"! После завершения работы макроса папку удаляем вручную. Не в корзину

Сам не проверял, на твой страх и риск