標題: [發問] 列出指定的相關資料夾名稱 [打印本頁]

---

作者: 巴克斯    時間: 2011-3-8 12:25     標題: 列出指定的相關資料夾名稱

想將資料夾A01內,名稱類似B的子資料夾名稱列出(B01,B02,...)
請問程式應該如何寫?謝謝

---

作者: GBKEE    時間: 2011-3-8 20:07

回復 1# 巴克斯

1. Sub ShowSubFolders()
   
2.     Dim fs, f, f1, s
   
3.     Set fs = CreateObject("Scripting.FileSystemObject")
   
4.     Set f = fs.GetFolder(ThisWorkbook.Path & "\").SubFolders
   
5.     For Each f1 In f
   
6.        If f1.Name Like "B*" Then
   
7.             s = s + 1
   
8.             Cells(s, 1) = f1.Name
   
9.        End If
   
10.     Next
    
11. End Sub

複製代碼

---

作者: 巴克斯    時間: 2011-3-9 07:40

謝謝兩位指導,兩種方法都ok
又學習到兩種沒用過的做法,謝謝 ^ ^

---

作者: 巴克斯    時間: 2022-12-28 15:22

本帖最後由 巴克斯 於 2022-12-28 15:24 編輯

因為要查詢的資料夾內有上千個子資料夾，若是用迴圈逐一尋找相似名稱的資料夾速度較慢
用 Dir("D:\TEST\folder_11*", vbDirectory) 可以直接取得第一個類似名稱的資料夾
不知是否有方法可以不跑迴圈，直接獲知類似名稱資料夾數或列出類似名稱

[attach]35687[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)