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除去。如果該文件夾中填充了文件，則應該先刪除它們。