[решено] Прошу написать bat-скрипт переименования папок

[Splash.Dmg]

Добрый день! Прошу помощи в написании bat-скрипта.

Есть директория, в которой лежит много папок с именами вида:

72[09-04-18]QWERT
376[13-08-18]ASDFG
516[09-10-18]ZXCVB

Нужно переименовать их таким образом, чтобы остались только начальные цифры (до открывающей квадратной скобки).

Заранее спасибо!

[megaloman]

Splash.Dmg, @Echo Off
Set "DirIn=Z:\Box_In\* *.*"
FOR /D %%d IN ("%DirIn%") DO (
FOR /F "delims=[" %%i IN ("%%~nxd") DO Ren "%%d" "%%i%%~xd" ||Echo !!! Impossible rename "%%d"
)
Заранее пожалуйста

[Splash.Dmg]

megaloman, благодарю!