[日期时间] 批处理如何删除指定日期之前的文件夹？

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

2楼

发表于 2017-7-25 23:05 | 只看该作者

参考：http://bbs.bathome.net/thread-3503-1-1.html

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2017-7-24

3楼

发表于 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:\>

请问，这是哪里有问题？

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

4楼

发表于 2017-7-27 22:37 | 只看该作者

回复 3# breeze_li

请把你测试用的bat文件压缩之后传上来我看看

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2017-7-24

5楼

发表于 2017-7-28 09:03 | 只看该作者

回复 4# Batcher 这个是测试文件

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

6楼

发表于 2017-7-28 11:36 | 只看该作者

回复 5# breeze_li

3楼的报错信息看不出具体哪个命令在报错，单独执行这段有问题吗？

>"%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%
复制代码

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2017-7-24

7楼

发表于 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

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

8楼

发表于 2017-7-28 15:59 | 只看该作者

回复 7# breeze_li

C:\Users\Administrator\AppData\Local\Temp\DstDate.vbs
把这个文件压缩传上来我看看
你用的什么版本的操作系统？

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2017-7-24

9楼

发表于 2017-7-28 16:12 | 只看该作者

回复 8# Batcher

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

10楼

发表于 2017-7-28 21:59 | 只看该作者

回复 9# breeze_li

set DaysAgo=1
>"%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%
复制代码

这样呢？

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2017-7-24

11楼

发表于 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:\>
好像是没报错

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

12楼

发表于 2017-7-31 09:02 | 只看该作者

回复 11# breeze_li

其它代码慢慢往上加，看看加到哪句的时候会报错。

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2017-7-24

13楼

发表于 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\"

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

14楼

发表于 2017-7-31 15:51 | 只看该作者

回复 13# breeze_li

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"
        )
    )
)
复制代码

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2017-7-24

15楼

发表于 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"
      )
)
这段，那四个变量都能打印出来