microsoft_yaw

@echo off & setlocal enabledelayedexpansion

set "list=jpg pdf"
if not exist "%~dp0Backup" (mkdir "%~dp0Backup")
for /f "tokens=3 delims=/ " %%i in ("!date!") do (set "today_date=%%i")
for /f "tokens=1,2,3 delims=/ " %%i in ("!date!") do (set "new_name=%%j%%k%%i")
for /f "skip=4 tokens=1,4,* delims= " %%a in ('dir /od') do (
	for /f "tokens=3 delims=/" %%i in ("%%a") do (set "file_date=%%i")
	if "!file_date!" equ "!today_date!" (
		for /f "delims=" %%i in ("%%b %%c") do (
			for %%f in (!list!) do (
				if "%%~xi" equ ".%%f" (
					copy /y "%%i" "%~dp0Backup" >nul && ren "%~dp0Backup\%%i" "%%~ni_!new_name!%%~xi"
				)
			)
		)
	)
)

pause
复制代码

仅支持备份Bat程序当前位置中指定类型的文件

microsoft_yaw

回复 7# jave000


    已优化:

@echo off & setlocal enabledelayedexpansion

set "list=jpg pdf"
if not exist "%~dp0Backup" (mkdir "%~dp0Backup")
for /f "tokens=1,2,3 delims=/ " %%i in ("!date!") do (set "today_date=%%k" & set "new_name=%%j%%k%%i")
for /f "skip=4 tokens=1,4,* delims= " %%a in ('dir /od') do (
	for /f "tokens=3 delims=/" %%i in ("%%a") do (set "file_date=%%i")
	if "!file_date!" equ "!today_date!" (
		for /f "delims=" %%i in ("%%b %%c") do (
			for %%f in (!list!) do (
				if "%%~xi" equ ".%%f" (
					if not exist "%~dp0Backup\%%~ni_!new_name!%%~xi" (
						copy /y "%%i" "%~dp0Backup" >nul && echo 备份 %%i 成功^^!
						ren "%~dp0Backup\%%i" "%%~ni_!new_name!%%~xi" && echo 重命名 %%i -^> %%~ni_!new_name!%%~xi 成功^^!
					) else (echo %%~ni_!new_name!%%~xi 已存在,备份失败^^!)
				)
			)
		)
	)
)

pause
复制代码

如出现乱码,请将Bat程序的编码格式修改为ANSI