Create 2000 folders in a single click ...

this is what you do

1> Open notepad
...--------------------------------------------------------------
2> copy the following code

Option Explicit
Dim objFSO, objFolder, strDirectory, i
strDirectory = "d:\123\" '' u can change this to ur desktop location

Set objFSO = CreateObject("Scripting.FileSystemObject")
i = 10 ''

While i < 2000 '' u can change this number

Set objFolder = objFSO.CreateFolder(strDirectory & i)
i = i+1
''WScript.Quit ''
Wend

-------------------------------------------------------------------
3> save as : test1.vbs ( make sure it is .vbs file)

4> Create a folder on d drive and name it 123

5> NOW ! go to the file test1.vbs and double click on it....
and check the folder 123 in d drive ........... u will get 1999 folders
---------------------------------------------------------------------------------------------