morjov
С секундами не удалось
Сделал так - если уже такой файл при переименовывании есть - то в конце добавляется порядковый номер файла
2005_12_31_23_33-123.jpg
2005_12_31_23_33-124.jpg
2005_12_31_23_33-125.jpg
Код:
@Echo Off
Set f_Ext=jpg
Set f_Count=1
For %%a In (*.%f_Ext%) Do @Call :Rena %%a %%~ta
GoTo :EOF
:Rena
Set /a f_Count=%f_Count%+1
Set f_Name=%1
Set f_Date=%2
Set f_Time=%3
Set f_Day=%f_Date:~0,2%
Set f_Month=%f_Date:~3,2%
Set f_Year=%f_Date:~6,4%
Set f_Hour=%f_Time:~0,2%
Set f_Min=%f_Time:~3,2%
Set f_NewName=%f_Year%_%f_Month%_%f_Day%_%f_Hour%_%f_Min%
If Exist %f_NewName%.%f_Ext% Set f_NewName=%f_NewName%-%f_Count%
Ren %f_Name% %f_NewName%.%f_Ext%
GoTo :EOF
С секундами не удалось
Сделал так - если уже такой файл при переименовывании есть - то в конце добавляется порядковый номер файла
2005_12_31_23_33-123.jpg
2005_12_31_23_33-124.jpg
2005_12_31_23_33-125.jpg
Код:
@Echo Off
Set f_Ext=jpg
Set f_Count=1
For %%a In (*.%f_Ext%) Do @Call :Rena %%a %%~ta
GoTo :EOF
:Rena
Set /a f_Count=%f_Count%+1
Set f_Name=%1
Set f_Date=%2
Set f_Time=%3
Set f_Day=%f_Date:~0,2%
Set f_Month=%f_Date:~3,2%
Set f_Year=%f_Date:~6,4%
Set f_Hour=%f_Time:~0,2%
Set f_Min=%f_Time:~3,2%
Set f_NewName=%f_Year%_%f_Month%_%f_Day%_%f_Hour%_%f_Min%
If Exist %f_NewName%.%f_Ext% Set f_NewName=%f_NewName%-%f_Count%
Ren %f_Name% %f_NewName%.%f_Ext%
GoTo :EOF