VB 问题 （对高手来说 非常简单！！！！）

来源：百度知道 编辑：UC知道 时间：2024/05/30 06:00:15
怎么实现下面的功能 （VB6)
检测C:\WINDOWS\system32的1.exe文件 如果存在 则删除 如果没有 则Text1.Text= 没有发现 1.EXE 而且能 一直防护 100分的问题 （第一次提问）
恩 谢谢 这100分 很简单吧~ 呵呵 谢谢了 我会了~

'添加一timer控件
Private Sub Form_Load()
Timer1.Interval = 800: Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Dir("C:\WINDOWS\system\1.exe") <> "" Then
Kill "C:\WINDOWS\system\1.exe"
Else
Text1.Text = "没有发现 1.EXE"
End If
End Sub

不用保护那么麻烦,建一个文件夹,名字为1.exe,就可以保护了