Удаление папок из списка в Excel

Question

Я нашел код VBA, который автоматически удаляет пустую папку из списка. Но когда в папках есть файлы, код пропускает удаление для этой папки, но я хочу удалить все папки, где бы они ни были, или пустые.

Файлы Excel находятся здесь: https://drive.google.com/file/d/1haN2BmRAS_KosFkD6UoyGhlVltYrDiSp/view

Sub DeleteFolders()

Dim Folder As Range
Dim FolderPath As String

FolderPath = Range("DeleteFolderPath").Value

On Error Resume Next

For Each Folder In Range("DeleteFolderNames[Folder Name]")
    RmDir FolderPath & "\" & Folder.Text
Next Folder

End Sub

Answer 1

Используйте оператор Kill для удаления файлов в папке, затем выполните `RmDir '

Sub DeleteFolders()
    Dim Folder As Range, Dim FolderPath As String

    FolderPath = Range("DeleteFolderPath").Value

    On Error Resume Next

    For Each Folder In Range("DeleteFolderNames[Folder Name]")
        Kill folderPath & "\" & Folder.Text & "\" & "*.*"
        RmDir FolderPath & "\" & Folder.Text 
    Next Folder
End Sub