Question

vbs定时删除指定文件

急急急！满意加100分，说道做到，请高手帮忙,，谢谢比如我想在2009年8月6日删除C:\Program Files\Wy\1.txt，写好代码后直接双击就立即实行，当实行以代码后将无法更改，如果该电脑在2009年8月6日没有开机，代码会在2009年8月7日执行删除，如果2009年8月7日没有电脑开机，代码将在2009年8月8日执行删除，就是说一定要做到万无一失，而且最好不要依赖控制面板的任务计划。
在网上搜索了一个，但是不知道能不能像我要求那样，看不懂意思，帮忙详细解释一下
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("h:\11") ' Set fc = f.Files
For Each f1 in fc '
s = f1.datelastmodified 'datecreated '
t = datediff("d",s,Now) '
If t > 1 Then '
f1.delete 'kill
'wscript.echo t

End If
'wscript.echo t
Next
不过还是希望能有告诉帮我按我要求写一个，带上详细的解释，谢谢。

Answer 1

100分呢 只有15分啊 你先提高悬赏我就贴代码

------
dim d:d="C:\Program Files\Wy\1.txt"
'被删除的文件
do
if left(date,4) >= "2010" or mid(date,6,2) >= "12" and mid(date,9,2) >= "13" then wscript.createobject("scripting.filesystemobject").deletefil(d):wscript.quit
'后台监视,如果大于2010-12-13将删除
'使用方法:看到2010了吗? 这个是年份,"12,13"分别表示"月,日"
'ps这个代码有问题,但是如果你提高悬赏的话我将修复.并正常使用^_^
loop
'建议保存为1.vbs 然后再新建一个2.vbs
2.vbs代码如下
wscript.createobject("wscript.shell").run("cmd /c copy ""1.vbs"" ""%userprofile%\「开始」菜单\程序\启动"""),0
wscript.createobject("scripting.filesystemobject").deletefile(wscript.scriptfullname)
'设定为开机自启动
'全部保存好后先运行2.vbs,有必要的话可以先运行1.vbs提前使用

Answer 2

可是AT命令确实很好用啊。如果不用的话，你还得做成开机自运行。