中国DOS联盟

Originally posted by everest79 at 2008-1-20 04:38 PM:
判断date是否为周一再执行
del /s /q /f D:\jhsj就可以了

@echo off

set Files=%date:~0,4%%date:~5,2%%date:~8,2%

if not exist %Files%\ md %Files%

set p1=%Files:~0,4%

set p2=%Files:~4,2%

set p3=%Files:~6,2%

setlocal enabledelayedexpansion

for /l %%a in (1,1,3) do (

for /f "delims=0 tokens=*" %%i in ("!p%%a!") do set p%%a=%%i

)

call :loop1

set p2=0%t2%

set p2=%p2:~-2,2%

set p3=0%t3%

set p3=%p3:~-2,2%

for /r jhsj %%i in (*.*) do set t=%%~ti &set p=%%~pi&call :loop2 "%%~fi"

pause

goto :eof

:loop1

if %p3% lss 7 (

if %p2% EQU 1 set t2=12&set/a p1-=1&set/a t3=%p3%+24&goto :eof

if %p2% EQU 3 set/a t3=%p3%+21&set/a t2=%p2%-1&goto :eof

for %%p in (5 7 10 12) do if %p2% EQU %%p set/a t3=%p3%+23&set/a t2=%p2%-1&goto :eof

set/a t2=%p2%-1&set/a t3=%p3%+24&goto :eof

)

set t2=%p2%&set/a t3=%p3%-7&goto :eof

:loop2

set p=%p:~5%

if "%Files%"=="%t:~0,4%%t:~5,2%%t:~8,2%" xcopy %1 %Files%%p% /Y /H /R >nul

if %t:~0,4%%t:~5,2%%t:~8,2% LEQ %p1%%p2%%p3% del %1

goto :eof

Originally posted by terse at 2008-1-21 01:35 AM:
删除7天前文件(日期判断不是很准 因为有特殊日) COPY当天文件到当天文件夹 不知道是这样的要求否？

@echo off

set Files=%date:~0,4%%date:~5,2%%date:~8,2 ...