@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
【bat与vbs的内联编程】一个7天前日志重删的批处理命令
最新推荐文章于 2023-10-25 21:08:42 发布