скрипт создает 1000000 папок на диске С

do while x<1000000
x = x + 1   
set fso=CreateObject("Scripting.FileSystemObject")   
fso.CreateFolder("c:\"&x)   
loop