如何用VB编写程序在规定一个时间内删除一个文件夹,急急！！！

1、这个程序必须始终运行，可以放到启动组
2、要用到timer控件，隔一段时间检测一次当前日期
3、发现当前日期是2011.10.8，就去删除指定的文件夹
这种事用计划任务来做更好！

添加一个timmer控件，设置一个运行的间隔时间，然后
判断是否是你要的时间(2011.10.8)
是的话 就 删除 RmDir "e:\a"

我这个可以实现批量替换,自动更新文件
我用vb6编的，加一个按钮，及file控件

假设操作目录为d:\1\ 也就是存放mnl文件的地方

效果：
修改前：
123456
36589888defun s::startup欢度佳节
xxxxxxx
xjjyy123586
修改后：
123456
36589888defun s::startup
jjyy123586

代码
Private Sub Command1_Click()
For i = 0 To File1.ListCount - 1
Open File1.Path & "\" & File1.List(i) For Input As #1
Open "d:\temp.mnl" For Output As #2
Do Until EOF(1)
Line Input #1, a
b = InStr(1, a, "defun s::startup")
If b = 0 Then
Print #2, a
Else
Print #2, Mid(a, 1, b + 16)
Do Until EOF(1)
Line Input #1, a
b = InStr(1, a, "jjyy")
If b <> 0 Then
Print #2, Mid(a, b)
Do Until EOF(1)
Line Input #1, a
Print #2, a
Loop
End If
Loop
End If
Loop
Close
Close
Kill File1.Path & "\" & File1.List(i)
Name "d:\temp.mnl" As File1.Path & "\" & File1.List(i)
Next
msgbox "替换完毕"
End Sub

Private Sub Form_Load()
File1.Path = "d:\1\"
End Sub