Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19787 / 76735 ←次へ | 前へ→

【62374】Re:ファイル一覧を作りましたが
発言  つん  - 09/7/15(水) 13:01 -

引用なし
パスワード
   ▼ざき さん
こんにちは

サブフォルダを取得できたら出来そうですね???

Sub test()
  Dim FSO, SubFS, SubF
  
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set SubFS = FSO.GetFolder("D:\Data").SubFolders
  
  For Each SubF In SubFS
    Debug.Print SubF.Name
  Next SubF
  
  Set SubF = Nothing
  Set FSO = Nothing
End Sub

こんな感じで、サブフォルダが取得できるみたいです。
(私も検索しながら、調べながらなので、これが最適なのかわかりませんが^^;)
1 hits

【62373】ファイル一覧を作りましたが ざき 09/7/15(水) 11:51 質問
【62374】Re:ファイル一覧を作りましたが つん 09/7/15(水) 13:01 発言
【62386】Re:ファイル一覧を作りましたが ざき 09/7/16(木) 8:19 お礼
【62380】Re:ファイル一覧を作りましたが Hirofumi 09/7/15(水) 16:28 回答
【62381】Re:ファイル一覧を作りましたが Hirofumi 09/7/15(水) 16:33 回答
【62387】Re:ファイル一覧を作りましたが ざき 09/7/16(木) 8:24 お礼
【62388】Re:ファイル一覧を作りましたが Hirofumi 09/7/16(木) 10:39 回答
【62457】Re:ファイル一覧を作りましたが ざき 09/7/22(水) 20:35 お礼

19787 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free