get-disk-usage

Title
get-disk-usage
Type
Function
Arguments
get-disk-usage DIRECTORY &optional RECURSIVEP
Package
editor
Section
ファイルシステム
File
builtin.l
指定されたディレクトリの容量を取得します。

  DIRECTORY  : 情報を取得するディレクトリを指定します。
  RECURSIVEP : サブディレクトリも再帰的にチェックするかを指定します。

戻り値は多値で返します。

  1 ブロックサイズ(バイト)
  2 全ディスク容量(バイト)
  3 空きディスク容量(バイト)
  4 ブロック単位の合計(バイト)
  5 ファイルサイズを単純に加算した合計(バイト)
  6 調べたディレクトリの個数
  7 調べたファイルの個数

使用例:
  (defun my-folder-size (my-dir)
    (interactive "Dfolder name: ")
    (let (my-dir-list (my-total-size  0))
      (setq my-dir-list (directory my-dir
                                   :wile "*.*"
                                   :absolute t
                                   :file-only t
                                   :recursive t
                                   :show-dots nil))
      (dolist (f my-dir-list)
        (setq my-total-size (+ my-total-size (file-length f))))
      (msgbox (format nil "フォルダの使用容量は、~d バイトです。"
                      my-total-size))))