| programmist72 |
05-04-2009 21:36 1084986 |
Увеличение MFT
Понимаю, что это могло обсуждаться на форуме... поэтому буду краток. Требуется увеличить в размерах сие чудо. Пожалуйста ткните меня либо в хороший совет как это сделать, либо в ссылочку на форуме.
Всем спасибо за помощь.
|
programmist72, практически по нику ;)
Цитата:
Цитата RuBoard
Код:
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)"!
После завершения работы макроса папку удаляем вручную. Не в корзину
|
Сам не проверял, на твой страх и риск ;)
|
Цитата:
Цитата programmist72
Требуется увеличить в размерах сие чудо »
|
Поясните зачем, интересно мне. |
Время: 19:29.
© OSzone.net 2001-
