VBA删除Excel电子表格中的文件夹列表

Question

我正在使用名为“All Dup”的应用程序查找重复的文件，通常通过CRC校验和进行匹配。一旦我运行了扫描，我剩下一个约10000个重复文件的列表。然后我可以将结果导出为csv文件。我想要做的是有一个宏，将删除列中的所有指定文件夹，即我列A中的所有文件夹。

我知道如何删除单个目录，但会真的欣赏一些有关“循环”功能的帮助或者沿着这些线路的东西。

Answer 1

此循环将沿着A行从第2行走到最后一个已填充的行。首先检查每个单元格以查看它是否非空白，然后检查它是否作为Dir function的文件夹存在。

With Worksheets("Sheet1") 
    For dr = 2 To .Cells(Rows.Count, "A").End(xlUp).Row 
     If CBool(Len(.Cells(dr, "A").Value2)) Then 
      If CBool(Len(Dir(.Cells(dr, "A").Value2, vbdirectrory))) Then 
       Kill .Cells(dr, "A").Value2 & Chr(92) * Chr(42) 
       RmDir .Cells(dr, "A").Value2 
      End If 
     End If 
    Next dr 
End With 

如果两个测试都通过，然后将文件夹与Kill function除去。如果该文件夹中填充了文件，则应该先删除它们。