vbs实现运行后延迟30分钟执行删除任务，之后循环每隔1小时再次执行删除任务

biao197

延迟5秒执行删除，以后每1个小时循环一次VBS求助

双击VBS后延迟30分钟秒执行删除，以后每1个小时循环执行删除d:\abc文件夹，
我的代码如下：
WScript.Sleep 1800
do
set fso=createobject("scripting.filesystemobject")
set sfold=fso.getfolder("d:\abc")
On Error Resume Next
sfold.attributes=0
sfold.delete
WSH.Sleep 3600
loop

看来看应该没什么错啊，但是去D盘看执行后过几秒就删除了，怎么回事呢？
应该怎么写才对？

czjt1234

WScript.Sleep 1800
单位是毫秒