Цитата kotik147:
|
Если в имени файла использованы точки все, что после точки не обрабатывается, остается в хвосте файла. »
|
Код:
@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
