Как использовать инструкцию «Для каждого»?

Question

Я работаю над антивирусом, и в основном, когда я просматриваю свои файлы, все угрозы будут добавлены в список, и я пытаюсь использовать оператор «Для каждого», чтобы удалить каждый элемент в списке коробка.

Мой код:

For Each threat As String In threatsLb.Items 
    threatsLb.Select() 
    Dim KillFile As String 
    KillFile = threatsLb.SelectedItem.ToString() 
    If Len(Dir$(KillFile)) > 0 Then 
     SetAttr(KillFile, vbNormal) 
     Kill(KillFile) 
    End If 
Next 

Любые предложения, почему это не удаление файлов из элементов в списке?

Answer 1

Звонок на Select не работает, что вы думаете. Он не делает текущую строку выбранной, а затем вы можете ее захватить с помощью SelectedItem. Он просто активирует элемент управления ListBox.

Но вам это просто не нужно. Для каждого оператора петель по сбору предметов и возвращает вам деталь во время работы с

Так предположит, что каждый элемент полного пути

For Each threat As String In threatsLb.Items 
    File.SetAttributes(threat, FileAttributes.Normal) 
    File.Delete(threat) 
Next 

' And finally 
threatsLb.Items.Clear()