ご存知の方教えてください。
以下ようなフォルダ階層があります。
----------------------- rootフォルダ
│
----------------- 第一階層フォルダ
│ │
│ --------------- 第二階層フォルダ
│ │
│ --------------- 第二階層フォルダ
│ │
│ --------------- 第二階層フォルダ
│
----------------- 第一階層フォルダ
│ │
│ --------------- 第二階層フォルダ
│ │
│ --------------- 第二階層フォルダ
│ │
│ --------------- 第二階層フォルダ
│ │
│ --------------- 第二階層フォルダ
│
│
やりたい事ですが、エクセルのマクロで
第一階層と第二階層のフォルダ数を取得する。
(階層のフォルダ数は取得する毎変わり、固定されていません。)
第一階層のフォルダにはファイルはないです。
第二階層のフォルダにはファイルが存在します。
rootフォルダにダミーファイルを設置しそこから
FileSystemObjectでフォルダパスを取得する事はできたました。
パスが分かればフォルダ数が分かるかと思い色々と調べていましたが
フォルダ数を取得する事ができませんでした。
初心者なりに書籍、ネットで調べてみたのですがどうしても
分かりませんでした。
どのようにしたらいいか教えていただけないでしょうか。
よろしくお願いします。
OS : XP
EXCEL : 2003
No.1ベストアンサー
- 回答日時:
rootのFolderオブジェクトを取得して SubFoldersプロパティで第一階層のフォルダーのコレクションが取得できますから
これのCountプロパティを参照すれば数は取得できます
各第一階層のフォルダーオブジェクトの SubFoldersを取得してCountプロパティを参照すれば フォルダー毎の数の取得も可能ですよ
dim objRoot, objSub1
Set objRoot = FSO.GetFolder("rootのパス")
' 第一階層のフォルダー数
debug.print objRoot.subFilders.Count
for each objSub1 in objRoot.subFolders
' 第二階層のフォルダー数
debug.print objSub1.Name, objSub.subFolders.Count
Next
といった感じです
redfox63様
ありがとうございます。
無事取得する事ができました。
ほんとうにありがとうございました。
一部修正した所もありますので同じ様な疑問がある方用に
修正した所を記述しておきます。
>' 第一階層のフォルダー数
>debug.print objRoot.subFilders.Count
のobjRoot.subFilders.Count を objRoot.subFolders.Countに修正
>' 第二階層のフォルダー数
>debug.print objSub1.Name, objSub.subFolders.Count
のobjSub.subFolders.Count を objSub1.subFolders.Countに修正
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 10 Window10ショートカットキーで切り取り貼り付けするとコンテキストメニューと挙動が異なる理由は? 2 2022/04/16 17:57
- Windows 10 Windows10で、フォルダにあるすべてのファイルを、下層フォルダも含め一つの階層へ配置し直したい 3 2022/05/31 09:50
- Excel(エクセル) フォルダ階層が深いファイルの拡張子の一括変換 2 2022/12/23 18:40
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- フリーソフト パソコンで、フォルダの最下層を探索してフォルダ名に連番を挿入するアプリを探しています。 例: アルフ 2 2023/06/09 22:04
- Windows 10 自作フォルダアイコンがいつの間にか変わる 3 2023/07/04 08:29
- UNIX・Linux 【初心者】aws lightsail で自作のオリジナルテーマのwordpressを設定する方法 1 2022/07/14 09:46
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) VBプロジェクトでのフォルダ構成について 1 2023/07/22 03:49
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
ExcelのVBAでフォルダ指定がで...
-
Excelのハイパーリンクについて...
-
エクセルのマクロについて教え...
-
フォルダ内のPDFファイル名を変...
-
vbsで選択ダイアログを表示した...
-
[VBS] Unicodeの文字化けを防ぎ...
-
ファイル名と同名のフォルダを...
-
excel VBA Dirにて検索したフォ...
-
同一フォルダ内の別ブックから...
-
Excel VBA で フォルダ名の一部...
-
エクセル VBA ファイルをフォ...
-
VBA フォルダの複数選択ができない
-
【マクロ】ファイル名の日付に...
-
VBScriptでのフォルダ指定ダイ...
-
VBS 途中のパスに変数を入れたい
-
VBA フォルダ名に特定の文字を...
-
保存先のフォルダ名を指定した...
-
パス名に2バイト文字(マルチバ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報