Board logo

标题: [日期时间] 批处理如何删除指定日期之前的文件夹? [打印本页]

作者: breeze_li    时间: 2017-7-24 17:09     标题: 批处理如何删除指定日期之前的文件夹?

求助,怎样删除某个文件夹下,今天之前的所有文件夹(不是文件)。
作者: Batcher    时间: 2017-7-25 23:05

参考:http://bbs.bathome.net/thread-3503-1-1.html
作者: breeze_li    时间: 2017-7-26 18:35

本帖最后由 breeze_li 于 2017-7-26 18:36 编辑

回复 2# Batcher
E:\>rem 指定待删除文件夹的存放路径

E:\>set SrcDir=E:\asdf

E:\>rem 指定天数

E:\>set DaysAgo=1

E:\>for /F "skip=2 delims=" %a in ('reg query "HKEY_CURRENT_USER\Control Panel\I
nternational" /v sShortDate') do (set "RegDateOld=%a" )

E:\>(set "RegDateOld=    sShortDate    REG_SZ    yyyy-M-d" )

E:\>set RegDateOld=yyyy-M-d

E:\>reg add "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate /t REG
_SZ /d yyyy-M-d /f 1>nul

E:\>echo LastDate=date()-1 1>"C:\Users\Administrator\AppData\Local\Temp\DstDate.
vbs"

E:\>echo FmtDate=right(year(LastDate),4) & right("0" & month(LastDate),2) & righ
t("0" & day(LastDate),2) 1>>"C:\Users\Administrator\AppData\Local\Temp\DstDate.v
bs"

E:\>echo wscript.echo FmtDate 1>>"C:\Users\Administrator\AppData\Local\Temp\DstD
ate.vbs"

E:\>for /F %a in ('cscript /nologo "C:\Users\Administrator\AppData\Local\Temp\Ds
tDate.vbs"') do (set "DstDate=%a" )

E:\>(set "DstDate=20170725" )

E:\>set DstDate=2017-07-25
命令语法不正确。

E:\>        if exist "%a\"

E:\>

请问,这是哪里有问题?
作者: Batcher    时间: 2017-7-27 22:37

回复 3# breeze_li


    请把你测试用的bat文件压缩之后传上来我看看
作者: breeze_li    时间: 2017-7-28 09:03

回复 4# Batcher    这个是测试文件
作者: Batcher    时间: 2017-7-28 11:36

回复 5# breeze_li


3楼的报错信息看不出具体哪个命令在报错,单独执行这段有问题吗?
  1. >"%temp%\DstDate.vbs" echo LastDate=date()-%DaysAgo%
  2. >>"%temp%\DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)
  3. >>"%temp%\DstDate.vbs" echo wscript.echo FmtDate
  4. for /f %%a in ('cscript /nologo "%temp%\DstDate.vbs"') do (
  5.     set "DstDate=%%a"
  6. )
  7. set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%
  8. echo %DstDate%
复制代码

作者: breeze_li    时间: 2017-7-28 15:09

回复 6# Batcher


C:\>test.bat

C:\>echo LastDate=date()- 1>"C:\Users\Administrator\AppData\Local\Temp\DstDate.v
bs"

C:\>echo FmtDate=right(year(LastDate),4) & right("0" & month(LastDate),2) & righ
t("0" & day(LastDate),2) 1>>"C:\Users\Administrator\AppData\Local\Temp\DstDate.v
bs"

C:\>echo wscript.echo FmtDate 1>>"C:\Users\Administrator\AppData\Local\Temp\DstD
ate.vbs"

C:\>for /F %a in ('cscript /nologo "C:\Users\Administrator\AppData\Local\Temp\Ds
tDate.vbs"') do (set "DstDate=%a" )
C:\Users\Administrator\AppData\Local\Temp\DstDate.vbs(1, 17) Microsoft VBScript
编译器错误: 语法错误


C:\>set DstDate=~0,4DstDate:~4,2DstDate:~6,2

C:\>echo ~0,4DstDate:~4,2DstDate:~6,2
~0,4DstDate:~4,2DstDate:~6,2
作者: Batcher    时间: 2017-7-28 15:59

回复 7# breeze_li


C:\Users\Administrator\AppData\Local\Temp\DstDate.vbs
把这个文件压缩传上来我看看
你用的什么版本的操作系统?
作者: breeze_li    时间: 2017-7-28 16:12

回复 8# Batcher
作者: Batcher    时间: 2017-7-28 21:59

回复 9# breeze_li
  1. set DaysAgo=1
  2. >"%temp%\DstDate.vbs" echo LastDate=date()-%DaysAgo%
  3. >>"%temp%\DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)
  4. >>"%temp%\DstDate.vbs" echo wscript.echo FmtDate
  5. for /f %%a in ('cscript /nologo "%temp%\DstDate.vbs"') do (
  6.     set "DstDate=%%a"
  7. )
  8. set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%
  9. echo %DstDate%
复制代码
这样呢?
作者: breeze_li    时间: 2017-7-31 09:00

回复 10# Batcher
C:\>test2.bat

C:\>set DaysAgo=1

C:\>echo LastDate=date()-1 1>"C:\Users\Administrator\AppData\Local\Temp\DstDate.
vbs"

C:\>echo FmtDate=right(year(LastDate),4) & right("0" & month(LastDate),2) & righ
t("0" & day(LastDate),2) 1>>"C:\Users\Administrator\AppData\Local\Temp\DstDate.v
bs"

C:\>echo wscript.echo FmtDate 1>>"C:\Users\Administrator\AppData\Local\Temp\DstD
ate.vbs"

C:\>for /F %a in ('cscript /nologo "C:\Users\Administrator\AppData\Local\Temp\Ds
tDate.vbs"') do (set "DstDate=%a" )

C:\>(set "DstDate=20170730" )

C:\>set DstDate=2017-07-30

C:\>echo 2017-07-30
2017-07-30

C:\>
好像是没报错
作者: Batcher    时间: 2017-7-31 09:02

回复 11# breeze_li


    其它代码慢慢往上加,看看加到哪句的时候会报错。
作者: breeze_li    时间: 2017-7-31 15:10

回复 12# Batcher

for /d %%a in ("%SrcDir%\*.*") do (
    if "%%~ta" leq "%DstDate%" (
        if exist "%%a\"
            echo rd /s /q "%%a"
        )
    )
)
加上这一句会报错,

命令语法不正确。

C:\>        if exist "%a\"
作者: Batcher    时间: 2017-7-31 15:51

回复 13# breeze_li
  1. for /d %%a in ("%SrcDir%\*.*") do (
  2.     REM 看看这几个变量的值
  3.     echo %SrcDir%
  4.     echo %%a
  5.     echo %%~ta
  6.     echo %DstDate%
  7.     if "%%~ta" leq "%DstDate%" (
  8.         if exist "%%a\"
  9.             echo rd /s /q "%%a"
  10.         )
  11.     )
  12. )
复制代码

作者: breeze_li    时间: 2017-7-31 16:24

回复 14# Batcher
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"
        )
    )
)
运行这段会直接报错,如果去掉
if "%%~ta" leq "%DstDate%" (
        if exist "%%a\"
            echo rd /s /q "%%a"
        )
    )
这段,那四个变量都能打印出来
作者: Batcher    时间: 2017-7-31 19:19

回复 15# breeze_li


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

回复 16# Batcher
  1. set SrcDir=E:\asdf
  2. set DaysAgo=1
  3. for /f "skip=2 delims=" %%a in ('reg query "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate') do (
  4.     set "RegDateOld=%%a"
  5. )
  6. set RegDateOld=%RegDateOld:~-8%
  7. reg add "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul
  8. >"%temp%\DstDate.vbs" echo LastDate=date()-%DaysAgo%
  9. >>"%temp%\DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)
  10. >>"%temp%\DstDate.vbs" echo wscript.echo FmtDate
  11. for /f %%a in ('cscript /nologo "%temp%\DstDate.vbs"') do (
  12.     set "DstDate=%%a"
  13. )
  14. set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%
  15. echo %DstDate%
  16. for /d %%a in ("%SrcDir%\*.*") do (
  17.     REM 看看这几个变量的值
  18.     echo %SrcDir%
  19.     echo %%a
  20.     echo %%~ta
  21.     echo %DstDate%
  22.     if "%%~ta" leq "%DstDate%" (
  23.         if exist "%%a\" (
  24.             echo rd /s /q "%%a"
  25.         )
  26.     )
  27. )
  28. reg add "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul
复制代码
括号加了,现在不抱错了,但是好像没有执行删除操作
作者: Batcher    时间: 2017-8-8 17:45

回复 17# breeze_li


我代码里面已经写明了,可能你没注意到:
  1. ::如果演示结果无误,把rd前面的echo去掉,即可实现真正删除。
复制代码

作者: Nsqs    时间: 2017-8-8 19:06

本帖最后由 Nsqs 于 2017-8-8 19:21 编辑

回复 18# Batcher
删除文件
  1. PowerShell -c "Dir -File|ForEach{If(((Get-Date)-$_.LastWriteTime).Days -gt 30){Remove-Item $_.FullName}}"
复制代码
删除文件夹
  1. PowerShell -c "Dir -Dir|ForEach{If(((Get-Date)-$_.LastWriteTime).Days -gt 30){Remove-Item $_.FullName}}"
复制代码
一行流,当前文件夹内删除30天前的文件

09年的帖子,方法太老了,嵌套VBS怎么写的这么复杂,请参见复制7天前的文件
作者: Batcher    时间: 2017-8-9 09:22

回复 19# Nsqs


    是的,太老了,那时候混编的方法还没出现或者不流行。
作者: breeze_li    时间: 2017-8-10 08:47

回复 18# Batcher

谢谢耐心帮助,我用你帖子更新的 BAT + PowerShell 实现了
作者: kingshui    时间: 2017-8-16 17:15

forfiles也许更好?
作者: Batcher    时间: 2017-8-16 17:44

回复 22# kingshui


    能否把完整代码发出来让楼主测试一下?
作者: kingshui    时间: 2017-8-18 12:42

本帖最后由 pcl_test 于 2017-8-18 12:49 编辑

回复 23# Batcher



楼主可参考,@isdir的值一定要大写。
详细用法forfiles /?
  1. D:\>forfiles /?
复制代码
  1. forfiles /d -2017/8/18 /c "cmd /c if @isdir==TRUE rd /s/q @file"
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2