DupCheck
Sub DupeCheck (iWhat, Lst As ListBox) Lst.AddItem iWhat iNew = Lst.List(Lst.NewIndex) iOld = Lst.List(Lst.NewIndex + 1) If NameFix(iNew) = NameFix(iOld) Then Lst.RemoveItem Lst.NewIndex ': form1.F(1) = form1.F(1) + 1 End If End Sub
Sub DupeCheck (iWhat, Lst As ListBox)
Lst.AddItem iWhat
iNew = Lst.List(Lst.NewIndex)
iOld = Lst.List(Lst.NewIndex + 1)
If NameFix(iNew) = NameFix(iOld) Then
Lst.RemoveItem Lst.NewIndex
': form1.F(1) = form1.F(1) + 1
End If
End Sub
(dupcheck.html)- by Paolo Puglisi - Modifica del 25/3/2019