- ©«¤l
- 79
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Winwos 7 64 bits
- ³nÅ骩¥»
- Excel 2003/2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-8-25
- ³Ì«áµn¿ý
- 2019-9-20
|
- Public r As Integer
- Sub À°§Ú°µ()
-
- Dim r As Integer
- Dim fs As New FileSystemObject
- Dim myfolder As Folder
- Set myfolder = fs.GetFolder("D:\TEST")
-
- r = 0
- ¦C¥X¸ê®Æ§¨ myfolder
- End Sub
- Sub ¦C¥X¸ê®Æ§¨(fd As Folder)
- Dim f As File
- Dim sfd As Folder
-
- For Each sfd In fd.SubFolders
- For Each f In sfd.Files
- r = r + 1
- Cells(r, "A") = Split(fd, "\")(2)
- Cells(r, "B") = Split(sfd, "\")(3)
- Cells(r, "C") = f.Name
- Cells(r, "D") = f.DateLastModified
- Next
- ¦C¥X¸ê®Æ§¨ sfd
- Next
- End Sub
½Æ»s¥N½X |
|