Code:
Dim objFSO
Dim iCount
Set objFSO = CreateObject("Scripting.FileSystemObject")
For iCount = 1 to 100
objFSO.CreateFolder "C:\Temp\FolderName" & iCount
Next
Set objFSO = Nothing
Cut and paste that into a text file (DO NOT Save with MS Word!!! It will NOT work, use notepad!) and save it as stuff.vbs (the actual filename is not important, just make sure it has a .vbs extension)
You can edit the filename and folder but dont' edit the syntax.
Hope it helps
(change the 100 to however many folders you desire)