Batcher

回复 15# breeze_li


可能之前更新帖子的时候有过误操作，原始代码第26行少了一个左括号，已更新，你再试试。
http://bbs.bathome.net/thread-3503-1-1.html

breeze_li

回复 16# Batcher

set SrcDir=E:\asdf
set DaysAgo=1
for /f "skip=2 delims=" %%a in ('reg query "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate') do (
    set "RegDateOld=%%a"
)
set RegDateOld=%RegDateOld:~-8%
reg add "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul
>"%temp%\DstDate.vbs" echo LastDate=date()-%DaysAgo%
>>"%temp%\DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)
>>"%temp%\DstDate.vbs" echo wscript.echo FmtDate
for /f %%a in ('cscript /nologo "%temp%\DstDate.vbs"') do (
    set "DstDate=%%a"
)
set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%
echo %DstDate%
for /d %%a in ("%SrcDir%\*.*") do (
    REM 看看这几个变量的值
    echo %SrcDir%
    echo %%a
    echo %%~ta
    echo %DstDate%
    if "%%~ta" leq "%DstDate%" (
        if exist "%%a\" (
            echo rd /s /q "%%a"
        )
    )
)
reg add "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul
复制代码

括号加了，现在不抱错了，但是好像没有执行删除操作

Batcher

回复 17# breeze_li


我代码里面已经写明了，可能你没注意到：

::如果演示结果无误，把rd前面的echo去掉，即可实现真正删除。
复制代码

Nsqs

回复 18# Batcher
删除文件

PowerShell -c "Dir -File|ForEach{If(((Get-Date)-$_.LastWriteTime).Days -gt 30){Remove-Item $_.FullName}}"
复制代码

删除文件夹

PowerShell -c "Dir -Dir|ForEach{If(((Get-Date)-$_.LastWriteTime).Days -gt 30){Remove-Item $_.FullName}}"
复制代码

一行流，当前文件夹内删除30天前的文件

09年的帖子，方法太老了，嵌套VBS怎么写的这么复杂，请参见复制7天前的文件

Batcher

回复 19# Nsqs


    是的，太老了，那时候混编的方法还没出现或者不流行。

breeze_li

回复 18# Batcher

谢谢耐心帮助，我用你帖子更新的 BAT + PowerShell 实现了

kingshui

forfiles也许更好？

Batcher

回复 22# kingshui


    能否把完整代码发出来让楼主测试一下？

kingshui

回复 23# Batcher



楼主可参考，@isdir的值一定要大写。
详细用法forfiles /?

D:\>forfiles /?
复制代码

forfiles /d -2017/8/18 /c "cmd /c if @isdir==TRUE rd /s/q @file"
复制代码