[文件操作] 这个BAT代码要怎么改，在名文件名后加上日期时间

qqhsx

请帮我改下能多实现以下功能
当新的目录中有所列出的文件时，在新目录中复制一份改名，在名文件名后加上日期时间
比如新目录是有A02.txt文件了，就在A02.txt的地复制一份改名 A02日期时间.txt

@echo off

setlocal enabledelayedexpansion
for /f "tokens=2 delims==" %%i in ('more +26 "%~f0"') do (
        set /a n+=1
        if !n!==1 call set 原目录=%%i
		if !n!==2 call set 新目录=%%i
)

rem echo 获取当前日期字符串
for /f "tokens=1,2,3 delims=/- " %%a in ("%date%") do @set D=%%a%%b%%c
rem echo 获取当前时间字符串
for /f "tokens=1,2,3 delims=:." %%a in ("%time%") do @set T=%%a%%b%%c
rem echo 如当前小时小于10，将空格替换为0
set T=%T: =0%
rem echo 显示输出日期时间字符串
:: echo %D%%T%

for /f "delims=" %%a in ('more +30 "%~f0"') do (
    for /f "delims=" %%i in ('dir /a-d /s /b "%原目录%\%%a"^|^|echo;%%a^>^>未找到的文件.txt') do copy /y "%%~fi" %新目录%\ 
)

pause
:end

::以下设置需要同步的两个目录::
原目录=H:\新建文件夹\A
新目录=H:\新建文件夹\B

::以下填入需要同步的文件名::
A01.txt
A02.txt
A03.txt
复制代码

went

第20行改一下

copy /y "%%~fi" "%新目录%\%%~na-%D%%T%%%~xa"
复制代码

qqhsx

回复 2# went


    在哪个位置添加

qqhsx

回复 2# went


    我是要在原功能不变的基础添加上这个功能

went

回复 4# qqhsx


    加个if代码

do if exist "%新目录%\%%~nxa" ( copy /y "%%~fi" "%新目录%\%%~na-%D%%T%%%~xa" ) else ( copy /y "%%~fi" "%新目录%\" )
复制代码