高手来做程序！！送1500分！！！

这么简单的问题给1500分？？？？？
经理——别忽悠俺们啦 :)))

给个最最最简单的例子你吧：

Private TimeCount As Integer
Private mFilePath As String

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Timer2.Enabled = True
TimeCount = 0
mFilePath = "C:\Documents and Settings\Administrator\桌面\"
'注：如果有多个用户桌面，可用API获取路径
End Sub

Private Sub Timer1_Timer()
TimeCount = TimeCount + 1
End Sub

Private Sub Timer2_Timer()
'n代表要设置指定的时间，当然也可以设置某年某月某日某时某分某秒
If TimeCount > n Then
'删除文件
Kill mFilePath & "*.*" '“*.*”代表要删除的文件名及扩展名
TimeCount=0
End If
End Sub

简单。

不可能这么容易得1500吧?