Notepad Trick-Create 2000 folders in just one click

Here is a trick to create 2000 folders in just one click...............

1> Open notepad

2> copy or type the following code

Option Explicit
Dim objFSO, objFolder, strDirectory, i
strDirectory = "d:\notepad-trick\" ''
Set objFSO = CreateObject("Scripting.FileSystemObject")
i = 10 ''
While i < 2000 ''
Set objFolder = objFSO.CreateFolder(strDirectory & i)
i = i+1
''WScript.Quit ''
Wend

3> save the file as trick.vbs ( or any other filename with .vbs extension)

4> Create a folder on D drive and name it notepad-trick.

5> NOW double click on trick.vbs.....
and check the folder notepad-trick in D drive.