[amel27]

CMD для сортировки файлов по дате создания с последующим переименованием всех файлов во всех подпапках по шаблону »

где-то так:

Код:

@Echo Off

Set ROOT=d:\mail_out
Set ABC= ABCDEFGHIJKLMNOPQRSTUVWXYZ

For /R "%ROOT%" %%i In (.) Do If /I Not "%%~fi"=="%ROOT%" Call :EX "%%~fi" *.DOC& Call :EX "%%~fi" *.XLS
Exit /B 0

:EX
For /F "Tokens=1* Delims=[]" %%a In ('DIR /B/OD "%~1\%~2"^|Find /N /V ""') Do (
Call REN "%~1\%%b" "21%~n1%%ABC:~%%a,1%%%DATE:~0,2%.*" 2>Nul)
GoTo :EOF

[El Sanchez]

kotik147, а если юзеры накидают в подпапки более 26 файлов одного расширения? А то букв латинского алфавита может и не хватить.


amel27, сильно!

[kotik147]

26 файлов одного расширения? »

Шаблон сверху спустили. Применение цифрового счётчика было бы куда логичней. Две маски 52 файла. На практике максимум 30.

[kotik147]

где-то так: »

Огромное спасибо amel27 за оперативную помощь. Здоровья богатырского и счастья бесконечного!!!
Проверил, есть одно но… Если в имени файла использованы точки все, что после точки не обрабатывается, остается в хвосте файла.
До имя.файла.doc После 2115C11.файла.doc
Постараюсь разобраться. А если не выйдет разобраться надо будет юзеров отучить от использования точки.

[amel27]

Если в имени файла использованы точки все, что после точки не обрабатывается, остается в хвосте файла. »

Код:

@Echo Off

Set ROOT=d:\mail_out
Set ABC= ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890
For /R "%ROOT%" %%i In (.) Do Call :EX "%%~fi" *.DOC& Call :EX "%%~fi" *.XLS

:EX
If Not "%~1"=="" For /F "Tokens=1* Delims=[]" %%a In ('DIR /B/OD "%~1\%~2" 2^>Nul^
|Find /N /V ""') Do Call REN "%~1\%%b" "21%~n1%%ABC:~%%a,1%%%DATE:~0,2%%%~xb"
GoTo :EOF

[kotik147]

Восхищаюсь Вашим талантом, amel27, и благодарю ещё раз. Не понимаю как, но все работает.