[megaloman]

Код:

@Echo Off

Set "Where=D:\Media"
Set "Mask=*.avi"

Set /A Count=1000
FOR /F "usebackq delims=" %%f IN (`Dir "%Where%\%Mask%" /b /A:-D /O:D /T:W 2^>nul`) DO Call :Recount "%Where%\%%f" "%Where%"

FOR /F "usebackq delims=" %%d IN (`Dir "%Where%\" /b /s /A:D  2^>nul`) DO (
	Set /A Count=1000
	FOR /F "usebackq delims=" %%f IN (`Dir "%%d\%Mask%" /b /A:-D /O:D /T:W 2^>nul`) DO Call :Recount "%%d\%%f" "%%d"
)
GoTo :Eof

:Recount
Set /A Count=%Count%+1

Set "DC=%~t1"
Set "DC=%DC:~6,4%-%DC:~3,2%-%DC:~0,2%"

ren %1 "%DC%_%Count:~-2%%~x1"

У Вас мутноватая постановка: 2010-06-28 никак не может быть <год>.<дата>.<месяц>, не понятно, что такое нумерация файла в папке: по какому принципу они отсортированы?
Вы уверены, что в папке не более 99 файлов?
В приведенном батнике файлы отсортированы по дате последнего изменения, соответственно ведётся и нумерация.

[dokxpi@vk]

megaloman, что-то не так, даже не запускается

[dokxpi@vk]

<год>.<дата>.<месяц>

Сорри.. <год>.<месяц>.<дата>

Вы уверены, что в папке не более 99 файлов? »

Меньше

не понятно, что такое нумерация файла в папке »

Я просто хотел сказать, что если папка новая, то считать нужно начинать с 1

будьте любезны озаботиться чтобы батник был в 866 кодировке (ДОС)/ Проверьте, маска файла правильная? Set "Mask=*.avi" »

С этим всё в порядке, изначально маску изменил на .avi и сохранил в 866 кодировке...

[dokxpi@vk]

Нечего не происходит, с файлами точно
https://yadi.sk/d/cRkOqGkBgVMDJ (окно запуска)

Код:

@Echo Off

Set "Where=D:\Media"
Set "Mask=*.avi"

rem FOR /F "usebackq delims=" %%d IN (`Dir "%Where%\" /b /s /A:D`) DO (

FOR /F "usebackq delims=" %%d IN (`Dir /b /s /A:D`) DO (

echo %%d

	Set /A Count=1000
	FOR /F "usebackq delims=" %%f IN (`Dir "%%d\%Mask%" /b /A:-D /O:D /T:W 2^>nul`) DO Call :Recount "%%d\%%f" "%%d"
)
GoTo :Eof

:Recount
Set /A Count=%Count%+1

Set "DC=%~t1"
Set "DC=%DC:~6,4%-%DC:~3,2%-%DC:~0,2%"

rem ren %1 "%DC%_%Count:~-2%%~x1"


echo ren %1 "%DC%_%Count:~-2%%~x1"

[megaloman]

Код:

@Echo Off
cls

Set "Where=D:\Media"
Set "Mask=*.avi"

Echo ========= Begin bat =============
pause

Set /A Count=1000
FOR /F "usebackq delims=" %%f IN (`Dir "%Where%\%Mask%" /b /A:-D /O:D /T:W 2^>nul`) DO Call :Recount "%Where%\%%f" "%Where%"

pause

FOR /F "usebackq delims=" %%d IN (`Dir "%Where%\" /b /s /A:D  2^>nul`) DO (
	Set /A Count=1000
	FOR /F "usebackq delims=" %%f IN (`Dir "%%d\%Mask%" /b /A:-D /O:D /T:W 2^>nul`) DO Call :Recount "%%d\%%f" "%%d"
pause
)
GoTo :Eof

:Recount
Set /A Count=%Count%+1

Set "DC=%~t1"
Set "DC=%DC:~6,4%-%DC:~3,2%-%DC:~0,2%"

echo ren %1 "%DC%_%Count:~-2%%~x1"

Попробуйте этот вариант. Что батник выдаёт на экран? Или ничего не выдаёт?
Исправил неточность в первоначальном коде вверху. Код рабочий. Что вверху, что вот этот отладочный (но отладочный реально не переименовывает, так как стоит эхо
echo ren %1 "%DC%_%Count:~-2%%~x1"

???????????????

[dokxpi@vk]

echo ren %1 "%DC%_%Count:~-2%%~x1" »

https://yadi.sk/i/Ltf8y4zugViaZ

Исправил неточность в первоначальном коде вверху. Код рабочий.

Забрал
Спасибо, вам большое!

[dokxpi@vk]

Всё гуд,
единственное — обходит папки, в которых, внутри имени присутствует нестандартные символы,
пример такой папки: "media ♫"

[dokxpi@vk]

Пакетный файл положить в корневую папку и запустить. »

Никаких эмоций, не работает

megaloman, вот только сейчас заметил: файлы переименовывает по дате изменения, а нужно по дате съёмки
https://yadi.sk/i/HkyGmPIDgVneK

[Iska]

megaloman, вот только сейчас заметил: файлы переименовывает по дате изменения, а нужно по дате съёмки »

Старайтесь изначально:

Где 2008-03-07 - <год>.<дата>.<месяц> создания файлов (когда было снято) »

точно формулировать задачу.

Вкупе с:

обходит папки, в которых, внутри имени присутствует нестандартные символы, пример такой папки: "media ♫" »

полагаю, что лучше будет пользовать PowerShell.