Slideshow

nnnknkn

Pages

How to Create 2000 folders in a single click ?

May 30, 2011
By writting a Virtual Basic script you can create 2000 folder in a single click.

1 Open notepad

2 Copy the following code
-------------------------------------------------------------------------------------------------------------

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

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

While i < 2000 '' // you 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, check the folder 123 in D drive you will get 1999 folders.