[發問] 列出指定的相關資料夾名稱

巴克斯

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

GBKEE

回復 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

複製代碼

巴克斯

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

巴克斯

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

下載 (89.89 KB)

2022-12-28 15:12