从Excel中删除Explorer中的多个文件

我试图select一个特定的文件夹中包含从Excel列表中大约22K的17K文件。 该列表具有所有文件的名称和扩展名，仅此而已。

我试过这个代码，但没有运气。

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