Windows 从Excel中删除资源管理器中的多个文件

我试图从excel中的列表中选择一个特定文件夹中约17k个文件，其中包含约22k个文件。该列表包含所有文件的名称和扩展名，仅此而已

我尝试过这个代码，但没有成功

Sub DeletePics()
    Dim picRNG As Range, pic As Range, picPATH As String

    picPATH = "path"
    Set picRNG = Sheets("Sheet1").Range("A1:A17108").SpecialCells(xlConstants)

    On Error Resume Next
    For Each pic In picRNG
        If pic.Offset(, 1) = "Delete" Then
            If Len(Dir(picPATH & pic.Value)) > 0 Then
                Kill picPATH & pic.Value
                pic.Offset(, 2).Value = "Deleted"
            Else
                pic.Offset(, 2).Value = "Not Found"
            End If
        End If
    Next pic
End Sub

---

我想你在找。不，我只需要一个宏来根据excel上的列表选择Windows资源管理器中的文件。这些文件都在同一个文件夹中，扩展名完全相同。他们都是jpg。那你打算怎么处理他们呢？如果没有某种最终目的，在Explorer中选择它们是没有意义的，而且在相同的过程中很可能更好地实现该目的，而不是在Explorer中“选择”它们。（是的，该代码确实创建了一个文件列表；您只需更改一些内容，使其为.JPGs而不是.XLSs。您是否费心查看了它？）再次感谢您的帮助。我想最简单的任务是删除它们…好的，我会尝试删除文件，我想这会更容易我想你正在寻找。不，我只需要一个宏来根据excel上的列表在Windows资源管理器中选择文件。这些文件都在同一个文件夹中，扩展名完全相同。他们都是jpg。那你打算怎么处理他们呢？如果没有某种最终目的，在Explorer中选择它们是没有意义的，而且在相同的过程中很可能更好地实现该目的，而不是在Explorer中“选择”它们。（是的，该代码确实创建了一个文件列表；您只需更改一些内容，使其为.JPGs而不是.XLSs。您是否费心查看了它？）再次感谢您的帮助。我认为最简单的任务是删除它们…好的，我会尝试删除这些文件，我认为这会更容易