大侠们帮看下,删除list2中尺寸大于100M的文件,小弟我这样写为什么不管用

大侠们帮看下,删除list2中尺寸大于100M的文件,我这样写为什么不管用?
我把一堆文件名给放在list2中了,现在想从中移除尺寸大于100M的文件,我刚才试了下,发现我写的不管用:
with list2
  For j = 0 To .ListCount - 1
  If FileLen(.List(j)) / 1048576 >= 100 Then
msgbox .List(j) & (FileLen(.List(j)) / 1048576) 
.RemoveItem .List(j)
  End If
  Next j
end with

我测试的时候,它msgbox都能正确显示出来,可是为什么从list2中移除却失败呢?



------解决方案--------------------

VB code

With List2
    For j = 0 To .ListCount - 1
        If FileLen(.List(j)) / 1048576 >= 10 Then
            MsgBox .List(j) & (FileLen(.List(j)) / 1048576)
            .RemoveItem j
        End If
    Next j
End With
End Sub