Hsieh

¦^´_ 1# luke

1. Sub ¶×¤J()
   
2. Dim ary() As String, rw As Long, Mystr$, MyPath$
   
3. rw = 2: i = 0
   
4. path1 = "D:\TEST\"
   
5. file1 = Dir(path1 & "*.*", vbDirectory) '¥u³B²z¸ê®Æ§¨
   
6. Do While file1 <> ""
   
7.   If file1 <> "." And file1 <> ".." And _
   
8.      GetAttr(path1 & file1) = vbDirectory Then
   
9.      i = i + 1
   
10.      ReDim Preserve ary(i)
    
11.      ary(i) = file1
    
12.   End If
    
13.   file1 = Dir
    
14. Loop
    
15. For i = 1 To UBound(ary)
    
16.    Cells(rw, 1) = ary(i)
    
17.    MyPath = path1 & ary(i) & "\"
    
18.    fs = Dir(MyPath & "*.ccc")
    
19.    Open MyPath & fs For Input As #1
    
20.    Line Input #1, Mystr
    
21.    Cells(rw, 7) = Mid(Mystr, 2)
    
22.    Close #1
    
23.    rw = rw + 1
    
24. Next i
    
25. End Sub

½Æ»s¥N½X