Menghapus direktori kosong secara rekursif di Windows

Saya memiliki direktori di mesin Windows 7 saya yang memiliki ratusan atau ribuan direktori. Beberapa dari mereka memiliki file, beberapa tidak. Saya ingin menghapus semua direktori yang kosong.

Melihat perintah DOS del dan rmdir, sepertinya Anda tidak dapat melakukannya secara rekursif tanpa menghapus semua file. Apakah ada cara untuk melakukan ini dari baris perintah?

Anda dapat menggunakan utilitas Hapus Direktori Kosong .

Atau Anda dapat menggunakan file batch satu-liner ini (dari DownloadSquad ):

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

(jika digunakan di dalam file batch, ganti %ddengan %%d)

Ini berfungsi karena rdtidak akan menghapus direktori yang berisi file.

Anda juga dapat menggunakan ROBOCOPY. Ini sangat sederhana dan juga dapat digunakan untuk menghapus folder kosong di dalam hierarki besar.

ROBOCOPY folder1 folder1 /S /MOVE

Di sini baik sumber dan tujuan folder1, karena Anda hanya perlu menghapus folder kosong, alih-alih memindahkan file lain ke folder lain. /Sopsi adalah untuk melewatkan penyalinan (memindahkan, dalam kasus di atas) folder kosong. Ini juga lebih cepat karena file dipindahkan di dalam drive yang sama.

Karena Cygwin dilengkapi dengan GNU find, Anda dapat melakukan ini:

find . -type d -empty -delete

Atau untuk menghindari kebisingan saat folder tidak ada lagi:

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

Utilitas gratis EmptyFolderNuker melakukan ini dengan baik, dari folder dasar pilihan Anda. Itu juga menghapus direktori-direktori itu hanya berisi sub-direktori kosong.

Jika Anda telah menginstal Cygwin , Anda dapat melakukan ini:

find -type d -exec rmdir {} \;

Jika Anda bekerja di emacs (membuat platform ini agnostik), berikut ini berfungsi:

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

Menggabungkan posting Gareth dan G-Man:

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

Sunting: Tapi itu memberikan kesalahan keamanan karena 'C' di PATH var saya ... jadi alih-alih:

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

Saya tidak menggunakan xargs karena tampaknya memiliki batas jalur input (sekitar 1024 baris, saya kira?), Sedangkan

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

terus berjalan selama ia memiliki input. Biarkan flag verbose '-v' jika Anda tidak ingin melihat hasilnya dan / atau ingin itu berjalan lebih cepat.

Hmmm ... solusi mungkin lebih sederhana:

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

Mulai ini dari folder yang Anda ingin folder kosong dihapus.

/ d - akan bekerja pada folder, bukan file / r - akan mengembalikan subdir