diabo

1. Public r As Integer
   
2. 
   
3. Sub À°§Ú°µ()
   
4.    
   
5.     Dim r As Integer
   
6.     Dim fs As New FileSystemObject
   
7.     Dim myfolder As Folder
   
8.     Set myfolder = fs.GetFolder("D:\TEST")
   
9.    
   
10.     r = 0
    
11. 
    
12.     ¦C¥X¸ê®Æ§¨ myfolder
    
13. 
    
14. End Sub
    
15. 
    
16. 
    
17. Sub ¦C¥X¸ê®Æ§¨(fd As Folder)
    
18. 
    
19.     Dim f As File
    
20.     Dim sfd As Folder
    
21.    
    
22.     For Each sfd In fd.SubFolders
    
23.         For Each f In sfd.Files
    
24.             r = r + 1
    
25.             Cells(r, "A") = Split(fd, "\")(2)
    
26.             Cells(r, "B") = Split(sfd, "\")(3)
    
27.             Cells(r, "C") = f.Name
    
28.             Cells(r, "D") = f.DateLastModified
    
29.         Next
    
30.         ¦C¥X¸ê®Æ§¨ sfd
    
31.     Next
    
32. 
    
33. End Sub

½Æ»s¥N½X