查人人中国名人网皮带头怎么拆开图解:VB－问题请教各位。急急急
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 22:13:44
现在有一个ListView 控件，是report类型的。
里面是这样排列着的。
C:\1.EXE
C:\2.EXE
C:\3.EXE
.
.
.
C:\100.EXE
我做了一个代码是这样的
Dim i As Long
With ListView.ListItems
For i = 1 To .Count
kill ListView.ListItems(i).Text '删除文件
ListView.ListItems.Remove i '移除条目
用于一次性删除这些文件的。
但是，遇到例如2.EXE正在运行，程序就出错，不会自动跳到下一个删除。请问应该如果实现自动跳过不能删除的文件，继续往执行下面的任务？
里面是这样排列着的。
C:\1.EXE
C:\2.EXE
C:\3.EXE
.
.
.
C:\100.EXE
我做了一个代码是这样的
Dim i As Long
With ListView.ListItems
For i = 1 To .Count
kill ListView.ListItems(i).Text '删除文件
ListView.ListItems.Remove i '移除条目
用于一次性删除这些文件的。
但是，遇到例如2.EXE正在运行，程序就出错，不会自动跳到下一个删除。请问应该如果实现自动跳过不能删除的文件，继续往执行下面的任务？
在循环前加
On Error Resume Next
即错误继续执行。
还有，循环删除时应该从后往前删除，即：
For i = .Count To 1 Step -1
...
Next
VB缺乏异常捕获功能
Java C# C++ 和 VB.NET里都有Try……Catch块
VB里只能On Error Resume Next
再利用Error.Number来做
用On Error goto err_handle来捕获错误，错误代码在error.number.
err_handle 是你的错误处理程序开始的标号
你直接用Clear方法就可以了，不用那么累吧
在对象浏览器里查查，我不记得那个方法在哪里了，查到你就发财了。
VB里只能On Error Resume Next
再利用Error.Number来做
如果实在不行，建议重安系统．