サブフォルダ」といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。Applications)のMkDirステートメントで、階層の深いフォルダーを作成するには、どのようなコードを書けばいいのかを探している方による検索でしょうか。再帰的」といった検索も、おそらく同じだろうと推測しています。"C:\LOG\2016\09"というステートメントを実行すると、条件によって「パスが見つかりません。」という実行時エラーが発生するときがあります。いうときにエラーになるかというと、途中のフォルダーが存在しないときです。"C:\LOG\2016\09"を実行するとエラーが発生します。MkDirステートメントは、階層の深いフォルダーを一気に作成することはできず、階層を追って順番に作成しなければならないからです。再帰的」といった検索をした方は、この解決方法を探していたのだろうと私は推測しています。深い階層のフォルダーを作成するサンプルマクロ階層の深いフォルダーを作成するには、以下のようなマクロです。Sub上記のマクロを実行すると、「C:\LOG\2016\09」のような形で、Cドライブの「LOG」フォルダーの下に、マクロを実行した日の年のフォルダーが作成され、年のフォルダーの下に月のフォルダーが作成されます。サンプルマクロの解説まず最終的に作成したいフォルダーのフルパスを変数・full_pathに格納しています。"\")変数・tmp_pathにドライブ名を格納しておきます。arr(0)配列の2つ目の要素から、最後の要素までFor~Nextループを回して、深い階層のフォルダーを順番に作成する処理に入ります。Then存在しなかったときに、フォルダーを作成しています。tmp_pathローカルウィンドウで、配列変数・arrの各要素にどのような文字列が格納されているか、For~Nextループが回るごとに、変数・tmp_pathにどのような文字列が格納されているかを確認しながら、ステップ実行してみてください。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。