如何对list1中的数据进行循环排序?

我把一堆文件名给放在list2中了,现在想实现:先算一下list2中所有文件的总大小,如果超过100M那就要从大的开始删(文件名从list2中移除),直删到总大小一旦小于100M就停止,怎么高效实现?

比如删除单个的,下面这样就可以了:但是要高效循环看总大小然后停止,还要对文件大小排序,这个好像挺复杂.怎么写呢?
  With List2
  For j = 0 To .ListCount - 1
  Dim p As Long
  p = p + FileLen(.List(j)) / 1048576'获得list中文件的总大小
  Next j
  
  If p >= 100 Then
  For j = 0 To .ListCount - 1
  If FileLen(.List(j)) / 1048576 >= 100 Then
  .RemoveItem .List(j)
  End If
  Next j
  End With

谢谢!
===================补:
晕死我刚才又试了下,发现仅仅是简单移除大于100M的都失败了:
  For j = 0 To .ListCount - 1
  If FileLen(.List(j)) / 1048576 >= 100 Then
  .RemoveItem .List(j)
  End If
  Next j
为什么呢?

先按大小排序，然后从小的取，累加总大小，达到100M就不取了
把取出的项重新载入即可