返回列表下一主題上一主題發帖

[發問] 資料夾問題請益

child

中學生 Rank: 2

帖子: 38
主題: 20
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2010-5-10
最後登錄: 2019-2-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-28 14:33 | 顯示全部帖子

[發問] 資料夾問題請益

本帖最後由 child 於 2011-9-28 14:35 編輯

若想列出D:\TEST裏的所有資料夾包含子資料夾的名稱和修改時間，目前測試的程式只能列出D:\TEST裏的資料夾，但無法列出子資料夾。
Ex:
D:\TEST有AA和AB........等資料夾，但AA和AB資料夾裏又有01、02........等資料夾，想將資料呈現如下:

主資料夾  子資料夾  最終修改時間
AA             01          2011/9/24  02:23:32
AA             02          2011/9/24  01:33:32
AA             03          2011/9/25  08:33:32
AB             01          2011/9/23  03:33:01
AB             02          2011/9/25  01:34:30

最終修改時間為子資料夾的時間，請益如何修改程式碼?

Sub TEST()
Dim fs, f
Dim i As Integer

Sheets("TEST").Activate
Range("A1:C65536").ClearContents

Set fs = CreateObject("Scripting.FileSystemObject").GetFolder("D:\TEST")
   For Each f In fs.SubFolders
      i = i + 1
      Cells(i, 1).Resize(1, 2) = Array(f.Name, f.DateLastModified)
   Next
End Sub

很謝謝大家的幫忙^__^