Как я могу удалить папки с определенным количеством файлов?

Question

У меня есть папка в Windows 10, в которой много подпапок. В них также много файлов, но папок больше нет. Есть несколько папок, которые содержат только 2 или 3 файла, поэтому я надеялся найти способ удалить папки с 4 или менее файлами. Есть ли способ сделать это?

Answer 1

Поэтому я написал сценарий для вас в VBS, потому что мне было скучно на работе. Все, что вам нужно сделать, это создать новый текстовый файл, скопировать и вставить скрипт, заменить путь в последней строке на путь к папке, к которой вы хотите его применить, сохранить текстовый файл с расширением .vbs.

Set fs = WScript.CreateObject ("Scripting.FileSystemObject")

Sub ShowSubFolders(Folder)

    For Each SubFolder In Folder.SubFolders
    set objFolder = fs.GetFolder(SubFolder)

        Set files = SubFolder.Files
        ShowSubFolders Subfolder
        if files.Count < 4 And objFolder.SubFolders.Count = 0 then
                fs.DeleteFolder Subfolder
        end if

    Next

end sub


ShowSubFolders fs.GetFolder("C:\your\folder\path\here")

PS: я не тратил слишком много времени на его тестирование, но оно должно работать. Сначала создайте резервную копию, а после запуска сравните ее с резервной копией. Я не хочу, чтобы вы потеряли какие-либо важные файлы.