【bat与vbs的内联编程】一个7天前日志重删的批处理命令

@echo off
if exist "D:\ImportCSV\cmd\date_cache" (del D:\ImportCSV\cmd\date_cache)else (goto NEXT1)
:NEXT1
::清理缓存

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

::定义今日日期

@goto :bat
<script language=vbs>
my_date1 = DateAdd("d",-7,date)
dim fso,testfile
Set fso = createobject("scripting.filesystemobject")
set testfile = fso.createtextfile("D:\ImportCSV\cmd\date_cache",true)
testfile.writeline my_date1
testfile.close
</script>
<script>close()</script>
:bat

mshta "%~f0" <nul
::VBS内联编程,输出一个7日前的日期

set year=%date:~0,4%

::获取年份并格式化

for /f "tokens=2 delims=/" %%i in (D:\ImportCSV\cmd\date_cache) do set month=0%%i
set month=%month:~-2%
::获取月份并格式化

for /f "tokens=3 delims=/" %%i in (D:\ImportCSV\cmd\date_cache) do set date=0%%i
set date=0%date%
set date=%date:~-2%
::获取日期并格式化

set sum=%year%%month%%date%


echo 7日前的日期%sum%
echo 今日的日期%a%
::mkdir D:\WindowsImageBackup\PDC%a%
::xcopy /E /H /X /Y D:\WindowsImageBackup\PDC D:\WindowsImageBackup\PDC%a%
::del /F /S /Q D:\WindowsImageBackup\PDC%sum%\*
::rmdir /S /Q D:\WindowsImageBackup\PDC%sum%\

if exist "D:\ImportCSV\cmd\date_cache" (del D:\ImportCSV\cmd\date_cache)else (goto NEXT2)
:NEXT2
::清理缓存

pause
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值