Private Sub Timer1_Timer()
File1.Refresh
If File1.ListCount = File2.ListCount Then Exit Sub
If File1.ListCount > File2.ListCount Then
n = 0
For i = 0 To File1.ListCount - 1
If File1.List(i + n) <> File2.List(i) Then
n = n + 1
List1.AddItem File1.List(i), n - 1
End If
Next
End If
File2.Refresh
End Sub