[發問] 如何快速尋找類似名稱資料夾

巴克斯

請問各位先進
因為常常要到固定的資料夾下,尋找子資料夾
ex:   c:\test\   下有1000個不同名稱的子資料夾
        要獲取相關字頭a0001的 a0001-01,a0001-02, a0001-03等資料夾名稱("-"後面的文字不定)

有嘗試參考http://www.excelpx.com/home/show.aspx?id=34736&cid=15
用    With CreateObject("Scripting.FileSystemObject").GetFolder(RtFolder)
        For Each nlFolder In .subfolders
               if nlFolder.name like "a0001*" then .....
來尋找列出資料夾名稱
可是因為子資料夾太多,常常要尋找很久

請問有較快的方法嗎?
例如:如果我直接用檔案總管開c:\test\
         然後逐一輸入a,就會跳到a排序資料夾位置
         再輸入0,會很快跳到a0排序資料夾位置
         以此類推,找到a0001-01資料夾位置很快

是否有類似方法快速列出類似名稱之資料夾列表,謝謝

巴克斯

回復 2# GBKEE


    謝謝GBKEE 版主
      感覺速度有快很多了:D

GBKEE

回復 1# 巴克斯
修改一下 VBA: Dir 函數範例  試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim MyPath As String, MyName As String, xi As Integer
   
4.     MyPath = "C:\TEST\"           ' 指定路徑。
   
5.     MyName = Dir(MyPath, vbDirectory)       ' 找尋第一個子目錄。
   
6.     Do While MyName <> ""           ' 執行迴圈。
   
7.         If MyName <> "." And MyName <> ".." Then
   
8.             If GetAttr(MyPath & MyName) = vbDirectory And MyName Like "a0001*" Then
   
9.                 xi = xi + 1
   
10.                 Cells(xi, "A") = MyName
    
11.             End If
    
12.         End If
    
13.         MyName = Dir                ' 尋找下一個目錄。
    
14.     Loop
    
15. End Sub

複製代碼