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
-------------------------------------------------------------------------------------------------------------
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.
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.
