[xyzzy:01959] Re: フォルダ単位のディスク使用量の取得方法について

["Hiroyasu Ohasi" <hohasi@xxxxxxxxxxxxxxxx>]

逸見さん、こんにちわ。大橋です。

>commonlispのヘルプをみていたら、それらしきのがありました。
>
>(file-length "c:/vs97sp3.log")
>

ありがとうございました。おかげさまで、目的が果たせました。

次のような関数を定義してみました。Lisp若葉マークなので、お見苦しいとは思いま
すが、掲載させて下さい。
実行してみると、わたしの "c:/Program files/Microsoft Office"の下には約
126MBytesのファイルがあると表示されました。検算はしていませんが、たぶんその
ぐらいだろうと思います。

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

大橋 弘靖 <hohasi@xxxxxxxxxxxxxxxx>
----------------------------------------
;;; -*- Mode: Mother Goose -*-
(♪ (Jacky shall have but a peny a day)
    (because he can work any faster))
----------------------------------------