welcome to tetsuyanbo web site!!

tetsuyanbo

VBA

Excel VBAメモ Windows APIを使わずに階層の深いフォルダーを作成してみる

投稿日:2014/09/30

野暮用で...VBAってフォルダーを一気に作れないのね...。
FileSystemObjectのCreateFolder()ってのにフルパスを入れると実行エラーになっちゃう...。

24247_04

これは、たとえばc:\aaa\bbb\cccってパスのフォルダを作ろうとした場合、こんなことになるとエラーになっちゃう。

  • aaaって名前のフォルダがない
  • aaaって名前のフォルダがあっても、bbbってフォルダがない

そんな訳で、試しに作ったメソッドっぽいの(VBAでいうFunctionプロシージャ)はこんな感じ...。
※特にエラー処理を考えていないので、本気で使おうと思ったらエラー処理いるな...。

あと、メソッドを呼ぶためのメソッドっぽいの(VBAでいうSubプロシージャ)はこんな感じ。

んで、結果はこんな感じ。
まずは、実行前はこんな感じで"aaa"ってフォルダーはいない。

24247_01

んで、実行するとこんな感じ。
とりあえず、"aaa"ってフォルダーはできた。

24247_02

んで、中身はどうかというと...ちゃんと"aaa"、"bbb"、"ccc"の順番でフォルダーができてるっぽい。

24247_03

んまま、メモってことで。

-VBA
-, , , , , , , , , , , , , , , , , , , , , ,

Copyright© tetsuyanbo , 2018 All Rights Reserved Powered by STINGER.