Удаление пустой папки

[Dronlion]

Как средствами VBA проверить папку на пустоту, и если она пуста то удалить её, иначе ничего не предпринимать????

[Dronlion]

Sub Проверка_папки_на_пустоту()
Dim fso As Object
Dim fold
Set fso = CreateObject("Scripting.FileSystemO bject")
Set fold = fso.GetFolder("C:\Папка")
If fold.Files.count = 0 Then
RmDir ("C:\Папка")
End If
End Sub

[Казанский]

Можно так

If fold.Files.Count = 0 Then fold.Delete