【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