16.01.2019 12:43
OlegON
 
Код:
for i=0 to 100000000
Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\gb\"&i&".exe",2,true)
objFileToWrite.WriteLine("EKK")
objFileToWrite.Close
Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\gb\"&i&".docx",2,true)
objFileToWrite.WriteLine("EKK")
objFileToWrite.Close
Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\gb\"&i&".dbf",2,true)
objFileToWrite.WriteLine("EKK")
objFileToWrite.Close
Set objFileToWrite = Nothing
next
для тестирования создал кучку файлов, кстати, во время процедуры сдох антивирус Касперского.
26.05.2020 17:53
OlegON
 
Кому лень скрипты гонять, могут воспользоваться готовеньким
4 500 000 файлов : https://storage.olegon.ru/supermag/u...500000_docs.7z
46 000 000 файлов : https://storage.olegon.ru/supermag/u...000000_docs.7z
27.05.2020 21:43
LordMerlin
 
А для чего может понадобиться такой тип нагрузки. Что тестировать?
27.05.2020 21:51
OlegON
 
Поведение своих сервисов, работающих с файлами, если этих файлов становится действительно много.
Например, многие не в теме, что хранилки файлов обязательно надо делать с поддиректориями по каким-то принципам. Миллион файлов в одной директории - плохо для производительности.
Для меня же стало открытием, что NTFS в принципе, как хранилка, непригодна. Второй файлик ее убивает фактически. Дальше - только форматирование.
27.05.2020 22:23
LordMerlin
 
А по документации все вроде ничего так
28.05.2020 13:17
OlegON
 
Ну, справедливости ради, это не документация... И, кроме того, есть документация, а есть реальное использование.
Вот в реальности это кончается адскими тормозами даже после удаления файлов и https://olegon.ru/showthread.php?t=33952, при желании можно взять и попробовать.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.