[Iska]

На WSH:

Скрытый текст

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFolder


strSourceFolder = "C:\Мои проекты\0111"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strSourceFolder) Then
	With WScript.CreateObject("VBScript.RegExp")
		.Pattern = "^\[.*\](.+)$"
		
		For Each objFolder In objFSO.GetFolder(strSourceFolder).SubFolders
			If .Test(objFolder.Name) Then
				objFolder.Name = Trim(.Execute(objFolder.Name).Item(0).Submatches.Item(0))
			End If
		Next
	End With
Else
	WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

На всякий случай дополнительно делается «Trim()» — помнится, не все Проводники «кушали» лидирующие пробелы. Чего не делается — проверки существования папки перед переименованием.