Skapa flera nya undermappar på en gång?

[Grooge]

Kan jag på något sätt skapa många undermappar på en gång?

Ämnet redigerat av stenis, har förtydligat ämnet/rubriken

[dexter]

Skapa 2-3 mappar kopiera sedan dom.  ;D

[finbom]

Ett enkelt VB-skript fixar tusentals mappar hur enkelt som helst.

Kolla nedan för ett exempel på ett skript som skapar 100 undermappar i mappen C:Bralla där varje mappnamn heter bralla1, bralla2 osv.

MVH. Finbom

strFolder = "C:BRALLA"	'Ange vilken mapp alla undermappar ska skapas i. Dom kommer heta denna mapps namn + löpnummer.
strAntalMappar = 100	'Ange hur många undermappar som ska skapas.

On Error Resume next
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder (strFolder)
strfoldername = Right(strFolder,LEN(strfolder)-InStr(strfolder,""))

For Counter = 1 to strAntalMappar
FSO.CreateFolder (strFolder & "" & strfoldername & Counter)
Next

WScript.Echo "Klart! " & Counter & " mappar är skapade i mappen " & strFolder

[Grooge]

Tacksam för alla svar men du pratar hebreiska, vilket jag är väldigt dålig på. Vore tacksam för en översättning till ett språk jag förstår ;D    Med andra ord hur gör man ???