批处理之家 - Powered by Discuz! Board

@echo off
rem 将指定目录的所有文件及文件夹copy到指定目录下,只copy 7天内创建的或是7天内修改过的
rem author:perfectaction
set "src=d:\11\" rem 源目录路径
set "des=d:\22\" rem 目标路径
set "suffix=*" rem 需要xcopy的文件后缀
set "dd=7" rem 只copy7天之内的文件
del /f /q /a "%src%notcopylist_%suffix%.log" 2>nul
forfiles /p %src% /s /m *.* /d -%dd% /c "cmd /c dir @path /b /s >>%src%notcopylist_%suffix%.log"
if not exist "%src%notcopylist_%suffix%.log\" (
if exist "%src%notcopylist_%suffix%.log" (
xcopy "%src%*.%suffix%" "%des%" /s /d /y /EXCLUDE:%src%notcopylist_%suffix%.log
) else (
xcopy "%src%*.%suffix%" "%des%" /s /d /y
)
) else (
echo 错误：无法创建%src%notcopylist_%suffix%.log文件，当前目录存在同名文件夹。
)
rem pause

复制代码

@echo off
%1mshta vbscript:createobject("wscript.shell").run("""%~0"" : "^&month(date-7)^&"-"^&day(date-7)^&"-"^&year(date-7))(close)&exit /b
set "src=d:\11"
set "des=d:\22"
set "suffix=*"
xcopy /shcy /d:%2 "%src%\*.%suffix%" "%des%\"
pause

复制代码