フリーソフト

フォルダ一覧3

(井上 治 作)
[解説]
指定したフォルダから配下の全てのサブフォルダを検索して、
ワークシート上にフォルダのネストを表現して
全ファイルの一覧を更新日時、サイズ付きで表示します。
(ディスク内の「大掃除」などに便利です!)
今回のバージョンアップより「ランチャー機能」を追加しました。
「ランチャー機能」は起動時に選択でき、ハイパーリンク埋め込みか、
ファイル名の左端セル選択イベントでの起動かを選択できます。

[変更点]
・「表示オプション」と「起動オプション」を選択できるようになりました。
 「表示オプション」では更新日時、ファイルサイズの表示有無や色分けを選択でき、
 「起動オプション」では「ランチャー機能」の方式を選択できます。
・従来、一部機能がDir関数で動いていたものを、全てFSOでの記述に変更しました。

[機能]
・マクロを有効にして開くと、専用ツールバーと真っ白なシートが表示されます。
・ツールバーから起動すると、上記オプションとルートフォルダの選択フォームが表示され、
 処理開始ボタンでファイルサーチが行なわれます。
・中間処理をシートではなく2次元テーブルを使用し高速化。
 (ファイル名の並び替え以外は再帰処理ではありません。)
・フォルダとファイルを色で区別、参照不可フォルダは赤字で表示しました。
・サーチ中に実行時エラーが発生した場合、そこで止まるのではなく、
 エラー表示用シートにエラー内容を表示するようにしました。
・ESCキー打鍵で、単に止まるのではなく、中止確認のメッセージを
 表示するように変更しました。
・1フォルダずつ画面に描画しています。
・ファイルについては、更新日時、バイトサイズをファイル名の右に
 カッコ内に表示します。(表示有無、色分け有無は選択可能です。)

[制限]
・フォルダの階層については、50階層としております。
 →実際には、253階層まで増やせます。
・一度に表示するフォルダとファイルの合計は、65,536個です。
 →これは、Excelの行数の制限です。

[操作]
簡単ですが、添付の操作説明(HTML)文書を参照して下さい。
ブックを開けばツールバーに「操作説明」ボタンが表示されます。

[過去歴史]
・1998/11/29 [excel:12098] フォルダ一覧を印刷するサンプルです (長文)
  のタイトルで当時のEUC(MOUGの前身)にソースコード自体を掲載。
  EUCにはいろいろお世話になったので、多少でもお返しが
  できればと作成したものです。数件のお礼やご指摘がありました。
  (当時の文面を添付しました)
・1998/12/14 [excel:12775] フォルダ一覧を印刷するサンプルです (また長文)
  指摘をいろいろいただき、修正版を掲載。
  (当時の文面を添付しました)
・1999/??/?? 日付は忘れましたが、上記のブックをMOUGのフリーソフトに掲載。
  当時のバージョンは、Excel95にも対応しており、
  Excel95がDir関数の処理が非常に遅かったことから、
  APIでゴリゴリと処理したものでした。
・2003/02/09 「フォルダ一覧2」としてバージョンアップ。実は再作成。
  ファイルの一覧取得をFSOに全面変更。
  ソースコードもかなり見やすくしたつもりです。
・2003/12/21 1フォルダごとにファイル名の昇順で並び替えを行ないますが、これを
  クイックソートに変更しました。
・2004/02/15 「フォルダ一覧3」としてバージョンアップ。
  フォームでオプション機能を指定できるように変更しました。
  ソースコード参照用のボタンはExcel2002/2003でエラーになるので
  撤去しました。
・2004/10/23 フォルダ参照をExcel2000以降では一旦参照したフォルダを続けて処理する
  する場合に保持した状態から進められるように変更しました。
  (Excel97の場合はこの機能は実現しませんが利用には支障ありません。)
・2004/12/19 一部の記述に残っていたDir関数などを全てFSO化し、WindowsXPSP2での
  問題発生に対応しました。
・2005/02/19 操作説明ボタンが2004/12/19の対応の誤植で表示されなくなっていた件を
  修正しました。
  「Microsoft Visual Basic for Applications Extensibility」の参照設定
  が残っていたので撤去しました。

URLは「Excelでお仕事!」 http://www.ne.jp/asahi/excel/inoue/ です。
井上 治( mailto:sam_inoue@infoseek.to )

動作環境:
Excel97以降




フリーウェア

ファイルサイズ:383856 byte


このソフトをダウンロードするには、ログインが必要です
会員未登録の方はこちらから会員登録を行ってください