Apri il Blocco Note, incollaci dentro questo codice
codice:
Const lowerFolder = 1 'numero della prima cartella
Const upperFolder = 200 'numero dell'ultima cartella
Const BIF_RETURNONLYFSDIRS = 1
Dim wshShell, fso
Dim objShell, objFolder
Dim inDir, counter
Set wshShell = CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objShell.BrowseForFolder _
    (0, "Seleziona la cartella in cui creare le sottocartelle:", BIF_RETURNONLYFSDIRS)
If objFolder Is Nothing Then
  WScript.Quit 1
Else     
  inDir=objFolder.Items.Item.Path
  On Error Resume Next
  Err.Clear
  fso.GetFolder(inDir)
  If err.Number <> 0 Then
    MsgBox "Cartella di input non valida.",16
      WScript.Quit 2
  End If
  On Error Goto 0
End If
For counter = lowerFolder To upperFolder
  fso.CreateFolder(fso.BuildPath(inDir, CStr(counter))) 
Next
MsgBox "Operazione completata.", 64
WScript.Quit 0
, vai su File->Salva con nome...->Spostati nella cartella in cui vuoi salvare lo script->Dalla casella "Salva come" scegli "Tutti i file"->Digita nella casella "Nome file" "createfolders.vbs"->Premi "Salva"->Chiudi Blocco Note. Quindi fai doppio click sul file così creato, nella finestra che si aprirà seleziona la cartella in cui vuoi creare le 200 sottocartelle e premi OK. Qualora ti servissero cartelle con numeri differenti intervieni sulle due costanti riportate all'inizio del codice.