Как создать миллионы файлов (VBS) : Windows

OlegON · █ 16.01.2019 12:43

Код:

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

для тестирования создал кучку файлов, кстати, во время процедуры сдох антивирус Касперского.

OlegON · █ 26.05.2020 17:53

Кому лень скрипты гонять, могут воспользоваться готовеньким
4 500 000 файлов : https://storage.olegon.ru/supermag/u...500000_docs.7z
46 000 000 файлов : https://storage.olegon.ru/supermag/u...000000_docs.7z

LordMerlin · █ 27.05.2020 21:43

А для чего может понадобиться такой тип нагрузки. Что тестировать?

OlegON · █ 27.05.2020 21:51

Поведение своих сервисов, работающих с файлами, если этих файлов становится действительно много.
Например, многие не в теме, что хранилки файлов обязательно надо делать с поддиректориями по каким-то принципам. Миллион файлов в одной директории - плохо для производительности.
Для меня же стало открытием, что NTFS в принципе, как хранилка, непригодна. Второй файлик ее убивает фактически. Дальше - только форматирование.

LordMerlin · █ 27.05.2020 22:23

А по документации все вроде ничего так

OlegON · █ 28.05.2020 13:17

Ну, справедливости ради, это не документация... И, кроме того, есть документация, а есть реальное использование.
Вот в реальности это кончается адскими тормозами даже после удаления файлов и https://olegon.ru/showthread.php?t=33952, при желании можно взять и попробовать.