954,554 Members — Technology Publication meets Social Media
Username:
Password:
Lost login information?

infinite folder maker

By de_groot on Apr 20th, 2008 4:02 am

from noob to noob

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

Not sure how this helps.... it would be difficult to determine what is in folder 1 or 10.

Comatose
Taboo Programmer
Team Colleague
2,910 posts since Dec 2004
Reputation Points: 361
Solved Threads: 215
 

This article has been dead for over three months

Post: Markdown Syntax: Formatting Help
You