VBAで指定フォルダのファイル or サブフォルダを一括リネームするマクロ自作した
特定フォルダに、大量のファイルやフォルダがあった時、それらのリネーム作業は超面倒です。
ネットで探すと、一括置換（一括リネーム）するフリーのアプリなどもあるのですが、エクセルベースで手軽に使えるのが欲しかったので自作してみました。
設計思想
流れとしてはこんな感じです。
・セルD5にディレクトリ指定
・そのディレクトリに含まれる、全ファイル or 全フォルダをD7列以降に吐き出し
・それをH列にコピー
・コピーした後のものをエクセルベースでリネーム（手作業）
・最後に置換ボタンを押すと、リネーム実行がされる
実際の挙動
D列にリネーム前のファイル一覧、H列にリネームしたファイル一覧があり、赤枠のボタンを押すことで…
windowsのエクスプローラー上で、このように指定したディレクトリの全ファイルが一括でリネームされます。
サブフォルダも同じようにして、
一気に改名することができます。
ソースコード
あくまで自分用でかなり手抜き作成しているので、公開は控えておきます。
もし欲しいという稀有な方いれば、本ブログSNSのいずれかをフォローして、本記事をシェアしてもらい、その旨をアカウントに連絡もらえれば送ります！
