[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()» — помнится, не все Проводники «кушали» лидирующие пробелы. Чего не делается — проверки существования папки перед переименованием.

[megaloman]

CMD. Работает и с вложенными папками

Код:

@Echo Off

Set "FileIn=Z:\Box_In"

FOR /F "usebackq delims=" %%d IN (`Dir "%FileIn%\[*]*.*" /S /B /A:D 2^>nul^|Sort /R`) DO Call :DirIn "%%d%"
GoTo :Eof

:DirIn
	FOR /F "usebackq tokens=2 delims=]" %%i IN ('%~nx1') DO If Not "%%i"=="" (
		FOR /F "tokens=*" %%s IN ("%%i") DO Ren %1 "%%s"
	)
GoTo :Eof

На всякий случай дополнительно удаляются лидирующие пробелы. Чего не делается — проверки существования папки с новым именем перед переименованием.

[Iska]

Подсмотрел у Iska идею маски файлов »

А я теперь подсмотрел у Вас и увидел, что можно-то было обойтись и без регулярок . Правда, не понял, зачем «sort /r».

[megaloman]

Iska! Здесь пример дерева папок, когда нужен «sort /r». Без него не получится.

Код:

Z:\Box_In\[1234 любой набор символов]  123 любой набор символов\[любой набор символов]  любой набор символов\Soft_In
Z:\Box_In\[любой набор символов]  любой набор символов\[1234 любой набор символов]  123 любой набор символов\[любой набор символов]  любой набор символов\Test

Переименовывать приходится начиная с папок наибольшей вложенности, иначе с путями будет проблема

[Iska]

megaloman, спасибо, теперь понятно. Я просто не «копал» на тему вложенности.