GBKEE

¦^´_ 1# ¤Ú§J´µ
­×§ï¤@¤U VBA: Dir ¨ç¼Æ½d¨Ò  ¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim MyPath As String, MyName As String, xi As Integer
   
4.     MyPath = "C:\TEST\"           ' «ü©w¸ô®|¡C
   
5.     MyName = Dir(MyPath, vbDirectory)       ' §ä´M²Ä¤@­Ó¤l¥Ø¿ý¡C
   
6.     Do While MyName <> ""           ' °õ¦æ°j°é¡C
   
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                ' ´M§ä¤U¤@­Ó¥Ø¿ý¡C
    
14.     Loop
    
15. End Sub

½Æ»s¥N½X