Elimina recursivamente directorios vacíos en Windows

Tengo un directorio en mi máquina con Windows 7 que tiene cientos, si no miles, de subdirectorios. Algunos de ellos tienen archivos, otros no. Quiero eliminar todos los directorios vacíos.

Mirando el comando del y rmdir DOS, no parece que puedas hacer esto de forma recursiva sin eliminar todos los archivos. ¿Hay alguna manera de hacer esto desde la línea de comando?

Puede usar la utilidad Eliminar directorios vacíos .

Alternativamente, puede usar este archivo por lotes de una línea (de DownloadSquad ):

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

(si se usa dentro de un archivo por lotes, reemplácelo %dcon %%d)

Esto funciona porque rdno eliminará un directorio que contenga archivos.

También puedes usar ROBOCOPY. Es muy simple y también se puede usar para eliminar carpetas vacías dentro de una jerarquía grande.

ROBOCOPY folder1 folder1 /S /MOVE

Aquí se encuentran tanto el origen como el destino folder1, ya que solo necesita eliminar carpetas vacías, en lugar de mover otros archivos a una carpeta diferente. /SLa opción es omitir la copia (mover, en el caso anterior) carpetas vacías. También es más rápido ya que los archivos se mueven dentro de la misma unidad.

Como Cygwin viene con GNU find, puedes hacer esto:

find . -type d -empty -delete

O para evitar el ruido cuando una carpeta ya no existe:

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

La utilidad gratuita EmptyFolderNuker hace esto bien, desde una carpeta base de su elección. También elimina aquellos directorios que solo contienen subdirectorios vacíos.

Si tiene instalado Cygwin , puede hacer esto:

find -type d -exec rmdir {} \;

Si está trabajando en emacs (haciendo que esta plataforma sea independiente), lo siguiente funciona:

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

Combinando las publicaciones de Gareth y G-Man:

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

Editar: Pero eso dio un error de seguridad debido a 'C' en mi PATH var ... así que en su lugar:

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

No uso xargs porque parece tener un límite de línea de entrada (de aproximadamente 1024 líneas, creo), mientras que

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

solo continúa mientras tenga entrada. Omita el indicador detallado '-v' si no desea ver los resultados o desea que se ejecute más rápido.

Hmmm ... tal vez una solución aún más simple:

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

Comience esto desde la carpeta que desea que se eliminen las carpetas vacías.

/ d: funcionará en carpetas, no en archivos / r: repetirá subdirecciones