相片管理必備：文件批量改名工具 自動(dòng)以日期時(shí)間命名

@echo off
setlocal enabledelayedexpansion
echo.
::echo 參數(shù)：%1 ，%2 ，%3 , %4
echo 將目錄[%2]中的文件%1，復(fù)制到目錄[%3]中并用文件日期命名……
echo.
echo ---處理如下---
echo.
::如果目標(biāo)目錄不存在時(shí)，創(chuàng)建
if not exist %3 (
echo.
echo 目標(biāo)目錄[%3]不存在，正在創(chuàng)建……
md %3
echo --目標(biāo)目錄創(chuàng)建成功!
echo.
)
set pNo=0
for /r %2 %%i in (%1) do (
set pFTime=%%~ti
if /I {%5}=={} (
::以文件的日期時(shí)間命名
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
)
)