第一个看不大懂........
我再来补充两个嵌vbs的：
第一个是我的，不用生成临时文件：
[复制此代码]CODE:
' 2>nul 3>nul&@echo off&cls
'&if not "%1"=="" goto on
'&set/p day=请输入要追溯的天数:
'&start wscript.exe /nologo /e:vbs %0 %day%
'&exit
set oshell=createobject("wscript.shell")
d=wscript.arguments(0)
add=dateadd("d",-d,date)
myweekday=weekdayname(weekday(add))
s=wscript.scriptfullname
oshell.run "cmd /c"&""""&s&""""&" "&d&" "&add&" "&myweekday,1,false
:on error resume next
'&title 追溯日期&echo 今天是: %date%&echo.&echo %1天前是: %2 %3&echo.&pause&%0
第二个来自bbs.verybat.cn ，出自 清风09，有临时文件：
[复制此代码]CODE:
@echo off
set /p d=请输入要追溯的天数:
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind.txt",2,true).writeline(dateadd("d",-%d%,date))(window.close)
for /f %%a in (wind.txt) do echo %d%天前为:%%a
pause>nul & del wind.txt
文章评论
共有 位脚本之家网友发表了评论我来说两句