如何对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就不取了
把取出的项重新载入即可
