Рекурсивно видаляйте порожні каталоги в Windows

У мене на машині Windows 7 каталог, який містить сотні, якщо не тисячі підкаталогів. У деяких з них є файли, в деяких немає. Я хочу видалити всі порожні каталоги.

Дивлячись на команду del і rmdir DOS, це виглядає не так, як ви можете це робити рекурсивно, не видаляючи всіх файлів. Чи є спосіб це зробити з командного рядка?

Ви можете скористатися утилітою Remove Empty Directories .

Ви також можете використовувати цей пакетний файл з одним вкладишем (від DownloadSquad ):

for /f "delims=" %d in ('dir /s /b /ad ^| sort /r') do rd "%d"

(якщо використовується у пакетному файлі, замініть %dна %%d)

Це працює, тому що rdне буде видалено каталог, який містить файли.

Ви також можете використовувати РОБОКОПІЮ. Це дуже просто і його також можна використовувати для видалення порожніх папок всередині великої ієрархії.

ROBOCOPY folder1 folder1 /S /MOVE

Тут і джерело, і місце призначення folder1, оскільки вам потрібно видалити лише порожні папки, а не переміщувати інші файли в іншу папку. /SОпція полягає в тому, щоб пропустити копіювання (переміщення в цьому випадку) порожніх папок. Це також швидше, оскільки файли переміщуються всередині одного диска.

Оскільки Cygwin поставляється з GNU find, ви можете зробити це:

find . -type d -empty -delete

Або щоб уникнути шуму, коли папки більше немає:

find . -type d -empty -execdir rmdir {} +

Безкоштовна утиліта EmptyFolderNuker робить це добре, із базової папки на ваш вибір. Він також видаляє ті каталоги, що містять лише порожні підкаталоги.

Якщо у вас встановлений Cygwin , ви можете зробити це:

find -type d -exec rmdir {} \;

Якщо ви працюєте в emacs (роблячи цю платформу-агностиком), працює наступне:

(defun *-delete-empty-directories (root-directory)
  "Recursively delete empty directories in ROOT-DIRECTORY.

When called from dired, `dired-current-directory' is used for
ROOT-DIRECTORY."

  ;; Interface
  (interactive (list (if (eq major-mode 'dired-mode)
                         (expand-file-name (dired-current-directory))
                       (read-from-minibuffer "Root directory: "))))
  (when (or (null root-directory) (string= "" root-directory))
    (user-error "No root directory provided"))
  (when (called-interactively-p 'interactive)
    (unless (yes-or-no-p (format "Delete all non-empty directories in `%s'? "
                                 root-directory))
      (user-error "Directory `%s' has been left untouched" root-directory)))

  ;; Implementation
  (require 'f)
  (let ((entries (f-directories root-directory)))
    (while entries
      (let ((curdir (car entries)))
        (when (f-directories curdir)
          (*-delete-empty-directories curdir))
        (unless (f-entries curdir)
          (delete-directory curdir)
          (message "Directory deleted: `%s'" curdir))
        (setq entries (cdr entries)))))

Поєднання публікацій Гарета та G-Man:

find . -depth -type d -empty -execdir rmdir {} +

Редагувати: Але це призвело до помилки безпеки через "C" у моєму варі PATH ... так замість цього:

$find . -depth -type d -empty | while read dir; do (rmdir -v $dir); done

Я не використовую xargs, оскільки, здається, він має обмеження вхідного рядка (приблизно 1024 рядків, я думаю?), Тоді як

 while read x; do (command $x); done

просто продовжує тривалий час, поки має внесок. Залиште багатослівний прапор '-v', якщо ви не хочете бачити результати та / або хочете, щоб він працював швидше.

Гммм ... можливо, навіть простіше рішення:

for /d /r %d in (*.*) do rd "%d"

Почніть це з папки, з якої потрібно видалити порожні папки.

/ d - буде працювати над папками, а не файлами / r - повторюватиме підкаталоги