[gora]

Для папок формата:
KB849762_20110203
KB849768_20110203
KB976453_20090712
KB2345788_20100518
KB2356788_20100508
KB2545788_20110522
попробуйте так:

Код:

@Echo Off
SetLocal EnableDelayedExpansion
:: Папка с исходными папками фиксов
Set InFld=e:\Temp 1\1\1
:: Папка в которой будут созданы пустые папки со сквозной нумерацией (не понял зачем они, но пусть будет)
Set OutFld=e:\Temp 1\1\2
:: Папка в которую копируются переименованные файлы фиксов
Set allfix=e:\Temp 1\1\2\AllFix

For /F "UseBackQ Delims=" %%i In (`Dir "%InFld%" /B /AD /ON 2^>Nul`) Do (
	Set ti=%%i
	Set dat=!ti:~-8!
	Set kb=!ti:~0,-9!
	If "!ti:~8,1!"=="_" Set kb=!kb:~0,2!0!kb:~2!
	Set $!dat!!kb!=1
)
Set cnt=0
For /F %%i In ('Set $') Do (
	Set /A cnt +=1
	Set cnt0=00!cnt!
	Set ti=%%i
	Set kb=!ti:~9,9!
	If "!kb:~2,1!"=="0" Set kb=!kb:~0,2!!kb:~3!
	MD "%OutFld%\!cnt0:~-3!_!kb!_!ti:~1,8!" 2>Nul
	For %%f In ("%InFld%\!kb!_!ti:~1,8!\*.*") Do (
		Copy /Y "%InFld%\!kb!_!ti:~1,8!\%%~nxf" "%allfix%\!cnt0:~-3!_%%~nxf" >Nul
		Echo RD /S /Q "%InFld%\!kb!_!ti:~1,8!"	
	)
)