xiaoyuwxz

回复 13# aloha20200628


    谢谢你的回复，我使用你的代码测试了，输入不同的日期后，有时能删除，有时不能删除（就是说有时能删一个，有时能正确全删，有时没反应），输入的日期我是按 “0000-00-00” 的格式输入的。 我把set qd=2022-11-30 这样直接定义后测试没有效果。

xiaoyuwxz

回复 11# hfxiang


   谢谢你的回复，这个象是linux上的find命令，它也是按修改时间来计算的。我的本意是要用目录的日期形式来判断而进行删除。不是根据目录的创建或修改时间来删除。当然，用时间来计算可以作为最后一种方法来考虑使用，毕竟原备份出来的目录时间是每天的固定时间。
我也测试了下，还是不准确，会存在误删的情况

aloha20200628

请确认以下三点》
一、目录名须是 20??-??-?? 十位带前导零的格式
二、变量qd的输入值格式也须如上所述，且不能用双引号包裹
三、请用最新的简化版代码

Batcher

回复 15# xiaoyuwxz


试试7楼的方法
读一读方案5代码上面的那段话：

根据日期出现在文件夹名称中的具体位置，调整第24行字符串截取。
具体语法请参考参考set命令教程第8页
http://bbs.bathome.net/thread-31727-1-1.html

xiaoyuwxz

回复 19# Batcher


    完全可以了，谢谢！

hfxiang

回复 17# xiaoyuwxz


最初没有完全理解题意 ，现在知道了 。以下方法应该完全满足要求，只是稍为复杂了些

@echo off & setlocal enabledelayedexpansion
call :GetDate y m d
call :DateToDays %y% %m% %d% days1
@for /f "tokens=1-3 delims=-" %%a in ('dir /b/ad') do (
	call :DateToDays %%a %%b %%c days2
	set/a days=days1-days2
	if !days! GEQ 30 rd /q /s "%%~fa-%%b-%%c"
)
endlocal
exit/b
:DateToDays %yy% %mm% %dd% days
setlocal ENABLEEXTENSIONS
set yy=%1&set mm=%2&set dd=%3
if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
endlocal&set %4=%j%&goto :EOF
:GetDate yyyy mm dd
setlocal ENABLEEXTENSIONS
set "first="
for /f "tokens=1-3 delims=.-/ " %%a in ('date/t') do (
if not defined first set first=1&set yy=%%a&set mm=%%b&set dd=%%c)
endlocal&set %1=%yy%&set %2=%mm%&set %3=%dd%&goto :EOF
复制代码

xiaoyuwxz

回复 21# hfxiang


    这代码相当好，测试完全正确。太谢谢了！