瑞星卡卡安全论坛

用过VB的人都知道当要KILL的文件未找到时就会提示错误:什么什么的,文件未找到!
以下这个代码可以避免掉:
(比如在c:\有个test.exe的文件)
Private Sub Form_Load()
Dim test As String
test = "c:\test.exe"
filez = Dir(test)
filex = filez
If filex <> "" Then filez = True
If filez = True Then
Text1.Text = "存在！"
Else
Text1.Text = "没有找到！"
End If
End Sub
Private Sub Command1_Click()
If Text1.Text = "存在！" Then
message = MsgBox("是否删除此文件？", vbYesNo, "提示：")
Else
message = MsgBox("文件不存在或以删除！", vbOKOnly, "提示：")
End If
kfile = message
If kfile = "6" Then
Kill "c:\test.exe"
End If
End Sub
我加了个用户删除文件的按钮,可以删除和取消