Question

我正在创建一个防病毒软件，我在删除病毒方面遇到了一些麻烦。这是我的代码：

If threatsLb.Items.Count > 0 Then
    threatsLb.Enabled = True
    Dim KillFile As String
    KillFile = threatsLb.SelectedItem
    If Len(Dir$(KillFile)) > 0 Then
        SetAttr(KillFile, vbNormal)
        Kill(KillFile)
    End If
End If

基本上，如果有病毒，病毒的地址将存储在列表框中。但是＆＃39; KillFile = threatLb.SelectedItem＆＃39;没有选择列表框中的任何项目。我知道我做错了什么......你能帮忙吗？谢谢！

Answer 1

你真的不知道如何移除病毒，但是你去了。

If threatsLb.Items.Count > 0 Then
   For Each KillFile As String In threatsLb.Items
     If Not KillFile = "" Then
        SetAttr(KillFile, vbNormal)
        IO.File.Delete(KillFile)
     End If
   Next
End If

这将删除ListBox中的每个文件。

请注意，KillFile必须是文件的位置（例如：＆＃34; C：\ myfile.txt＆＃34;）

如何删除文件（Kill）VB

1 个答案: