For i = List1.ListCount - 1 To 0 Step -1
If LCase(Right(List1.List(i), 4)) = ".jpg" Then _
List1.RemoveItem (i)
Next
For i = ListView1.ListItems.Count To 1 Step -1
If LCase(Right(ListView1.ListItems(i).Text, 4)) = ".jpg" Then _
ListView1.ListItems.Remove i
Next
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 91