Comatose
Taboo Programmer
Team Colleague
2,910 posts since Dec 2004
Reputation Points: 361
Solved Threads: 215
dim fso,num
set fso=CreateObject("scripting.filesystemobject")
num =1
do until (x>100000000000000000000000000000000000000000000000000000000000000)
fso.CreateFolder ("C:\"&num)
num=num+1
loop