For x% = 1 To ListView1.ListItems.Count<br>
'alle elementen doorlopen<br>
If ListView1.ListItems(x%).Selected = True Then<br>
bestand$ = ListView1.ListItems(x%).Text<br>
'markering aanwezig = wissen<br>
'bestandsnaam samenstellen<br>
Pad$ = Map1.Path<br>
DoelBestand$ = CheckPath$(Pad$) + bestand$<br>
If Antwoord% = vbYes Then<br>
Titel$ = "Let op"<br>
Melding$ = "Moet het bestand " + DoelBestand$ + " worden gewist?"<br>
b% = MsgBox(Melding$, vbYesNo + vbQuestion, Titel$)<br>
Else<br>
'bestand wissen<br>
b% = vbYes<br>
End If<br>
If b% = vbYes Then<br>
Kill DoelBestand$<br>
ListView1.Refresh<br>
End If<br>
'labelveld actualiseren<br>
Gewist% = Gewist% + 1<br>
LbBewerkt.Caption = Str$(Gewist%)<br>
LbBewerkt.Refresh<br>
End If<br>
Next x% <p>Eric De Decker<br><a href=mailto:vbg.be@vbgroup.nl>vbg.be@vbgroup.nl</a><br><a href=
Visual Basic Center</a><br>