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