Private Sub Timer1_Timer()
On Error Resume Next
Kill ("C:\WINDOWS\*.tmp"): a = a + 1
Kill ("C:\WINDOWS\*._mp"): a = a + 1
Kill ("C:\WINDOWS\*.log"): a = a + 1
Kill ("C:\WINDOWS\*.gid"): a = a + 1
Kill ("C:\WINDOWS\*.old"): a = a + 1
Kill ("C:\WINDOWS\*.chk"): a = a + 1
 ListView1.ListItems(1).SubItems(1) = a
End Sub
上述代码中，我希望这样：Kill ("C:\WINDOWS\*.tmp")
找到文件并且删除后，a=a+1，
若没有找到，不执行a=a+1，直接执行Kill ("C:\WINDOWS\*._mp")
代码Kill ("C:\WINDOWS\*.tmp")预期目标：找到C:\WINDOWS下的.tmp文件并且删除
另外Kill 语句如何做到搜索系统安装目录并且在此目录下搜索.tmp文件并且删除？

应该可用循环来查找*.tmp。例如：
For i= 0 To File1.ListCount - 1
    s1 = File1.List(i1)                         '取文件名1
    if right(s1,4)=".tmp" then
       kill (c:\windows\s1
       a=a+1
    endif
next

（对不起，这几天没时间回复）
For语句和Next语句是什么意思？我一直没搞懂，Next可以省略么？

For和Next语句是一对循环语句，两者都不能省略