没有什么快速删除的方法，可以你把你要用的找到，复制到其他地方，然后把所有的图片都删除了，再把之前复制的贴回去

我不知道你说的“用不到”是什么意思，如果是所有的图片的话代码是这样的
Dim arrayRet = ""
arrayRet = File.DirFileOrFolder('''C:\UiBot 高级认证\学生成绩采集统计录入_人机交互\res''',"file",{"hasPath":True})
For Each value In arrayRet
       bRet = Regex.Test(value,".png")
    If bRet
        File.DeleteFile(value)
    End If
Next

果子哩 没有什么快速删除的方法，可以你把你要用的找到，复制到其他地方，然后把所有的图片都删除了，再把之前复制的贴回去

好嘞谢谢，那咱能优化一下吗，就是用到截图的那个操作删除了之后，图片也跟着删除，或者运行的时候，一起删除

祖咏 我不知道你说的“用不到”是什么意思，如果是所有的图片的话代码是这样的Dim arrayRet = ""arra ...

好嘞谢谢，是选择目标时截图产生的图片，截图多了，用到的少不是全部删除掉