相片管理必备：文件批量改名工具 自动以日期时间命名

@echo off
setlocal enabledelayedexpansion
echo.
::echo 参数：%1 ，%2 ，%3 , %4
echo 将目录[%2]中的文件%1，复制到目录[%3]中并用文件日期命名……
echo.
echo ---处理如下---
echo.
::如果目标目录不存在时，创建
if not exist %3 (
echo.
echo 目标目录[%3]不存在，正在创建……
md %3
echo --目标目录创建成功!
echo.
)
set pNo=0
for /r %2 %%i in (%1) do (
set pFTime=%%~ti
if /I {%5}=={} (
::以文件的日期时间命名
set pFNewName=!pFTime:~0,4!!pFTime:~5,2!!pFTime:~8,2!_!pFTime:~11,2!!pFTime:~14,2!
) else (
::以任意名称命名
set pFNewName=%5
)
set /a pNo=!pNo!+1
if /I "%4"=="Y" (
copy %%i %3!pFNewName!_%%~nxi
echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_%%~nxi
) else (
copy %%i %3!pFNewName!_!pNo!%%~xi
echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_!pNo!%%~xi
)
)