趣味プログラミングblog

「ファイル・フォルダ一覧取得ツール～Dirコマンドの結果から生成～」シリーズ
①操作編
②VBS編
③VBAファイルリスト編【今回】
④VBAフォルダリスト編

ファイル・フォルダ一覧取得ツールの続編その２。
今回は、出力されたテキストファイルからファイルリスト表示するVBA。

実は「ファイル一覧解析マクロ」で書いたマクロとメインとなる処理はほとんど同じ。

違いは以下の通り。
・フォルダ内のDirリスト.txtファイルをデフォルトとして、別ファイルを指定するとシート挿入する
・選択したDirファイルの情報を１，２行目に表示する（未解析ファイル有無の確認）
・リファクタリングで可読性や汎用性が向上している

---

ソースコードに入る前に、Dirコマンドの結果について構造を説明。

「ファイル・フォルダ一覧取得ツール～Dirコマンドの結果から生成～」シリーズ
①操作編
②VBS編【今回】
③VBAファイルリスト編
④VBAフォルダリスト編

ファイル・フォルダ一覧取得ツールの続編。
今回は、DIRコマンドをクリップボードに送るVBScriptについて。

VBScriptを実行すると、InputBoxが表示されて絞り込みキーワードの入力を促す。

何も入力しなかった場合（キャンセル押した場合）は、絞り込みなし。フォルダを指定
キーワードを入力した場合は、キーワードで絞り込んだコマンドを生成する。

---

まずはコマンドプロンプトで入力するDirコマンドについて説明。

前から書こう書こうと思いつつも、ボリュームが多くて敬遠していた記事。
新機能を追加したこともあって、ようやく重い腰を上げた。。。

「ファイル・フォルダ一覧取得ツール～Dirコマンドの結果から生成～」シリーズ
①操作編【今回】
②VBS編
③VBAファイルリスト編
④VBAフォルダリスト編


共有で使ってるフォルダってカオス。

頭の悪い奴がレイヤも考えずに好き勝手フォルダを作ったり、
共有フォルダなのに個人的なバックアップがいつまでも残ってたり。

一番腹立たしいのが、構成からして腐ってるパターン。
こればっかりはどうしようもない。
フォルダ内のファイルが多すぎてエクセルの100万行を超えたりする。

ちなみに、腐ったファイルをすべて特定フォルダに移して、
それ以外のフォルダを一覧にするという回避策はある。。。

---

今回の記事は、Dirコマンドを使ってファイル一覧を取得して、
その結果をエクセルでまとめるというもの。
前から触れてる内容ではあるけれど、必要なツールがフォルダにまとまっていて
誰でも使えるようにしてあるところが便利。

①１クリック（利便性のために＋１ボタン）でコマンドを生成して、
②CMDに貼り付けてDir結果をテキスト化。
③エクセル開いてその結果を抽出するというもの。

どんなにファイル数が多くても、ファイル一覧作成はWindowsの機能で行うので
エクセルを自由に使えるのがでかい！

ひとまず今回は、フォルダ構成と使い方について

9/8に申し込んだIIJのSIMカード変更。
本人確認を経て、9/12に発送されて、9/13にヤマトで届いた。

今回は、IIJのSIMカード（プランDからプランAへ）変更について。

エクセルVBAで時間のかかる処理をさせるときは、
application.statusbar で進捗状況を表示できる。

でもVBScriptだとWindows上で動作するので表示するアプリケーションがない。


検索すると、IEオブジェクトを使ってプログレスバーを表示することができるようだ。

う～ん。めんどい！
IEオブジェクトなんてわかんないもんね。


なんかしら表示が出れば・・・