首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-01-13 
大侠们帮看下,删除list2中尺寸大于100M的文件,我这样写为什么不管用?我把一堆文件名给放在list2中了,现在

大侠们帮看下,删除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 jEnd WithEnd Sub 

热点排行