Rekurencyjnie usuwaj puste katalogi w systemie Windows

Mam katalog na moim komputerze z systemem Windows 7, który zawiera setki, jeśli nie tysiące podkatalogów. Niektóre z nich mają pliki, inne nie. Chcę usunąć wszystkie puste katalogi.

Patrząc na komendę del and rmdir DOS, nie wygląda na to, że można to zrobić rekurencyjnie bez usuwania wszystkich plików. Czy można to zrobić z wiersza polecenia?

Możesz użyć narzędzia Usuń puste katalogi .

Alternatywnie możesz użyć tego pliku wsadowego z jedną linią (z DownloadSquad ):

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

(jeśli jest stosowany w środku plik wsadowy wymienić %dz %%d)

Działa to, ponieważ rdnie usunie katalogu zawierającego pliki.

Możesz także użyć ROBOCOPY. Jest to bardzo proste i może być również użyte do usunięcia pustych folderów w dużej hierarchii.

ROBOCOPY folder1 folder1 /S /MOVE

Tutaj znajdują się zarówno źródło, jak i miejsce docelowe folder1, ponieważ wystarczy usunąć puste foldery zamiast przenosić inne pliki do innego folderu. /Sopcja polega na pominięciu kopiowania (przenoszenia, w powyższym przypadku) pustych folderów. Jest także szybszy, ponieważ pliki są przenoszone na ten sam dysk.

Ponieważ Cygwin zawiera GNU find, możesz to zrobić:

find . -type d -empty -delete

Lub, aby uniknąć hałasu, gdy folder już nie istnieje:

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

Bezpłatne narzędzie EmptyFolderNuker robi to dobrze, z wybranego folderu podstawowego. Usuwa również te katalogi zawierające tylko puste podkatalogi.

Jeśli masz zainstalowany Cygwin , możesz to zrobić:

find -type d -exec rmdir {} \;

Jeśli pracujesz w emacsie (czyniąc to niezależnym od platformy), działają:

(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)))))

Łączenie postów Garetha i G-Mana:

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

Edycja: Ale to spowodowało błąd bezpieczeństwa z powodu „C” w mojej zmiennej PATH var ... więc zamiast tego:

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

Nie używam xargs, ponieważ wydaje się, że ma limit linii wejściowej (około 1024 linii, jak sądzę?), Podczas gdy

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

po prostu działa tak długo, jak długo ma wkład. Pomiń szczegółową flagę „-v”, jeśli nie chcesz widzieć wyników i / lub chcesz, aby działało szybciej.

Hmmm ... może nawet prostsze rozwiązanie:

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

Rozpocznij od folderu, w którym chcesz usunąć puste foldery.

/ d - będzie działał na folderach, a nie na plikach / r - będzie rekursował podkatalogi