http://gb.twbts.com/index.php?topic=9501.0;prev_next=prev

Sub ShowFolderList()
　　Dim fs, f
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.GetFolder("d:\")
　　For Each f1 In f.SubFolders
　　　　i = i + 1
　　　　Cells(i, 1) = f1.Name & " : " & f1.DateCreated
　　Next
End Sub



.DateCreated  建立的日期
.DateLastAccessed 最後存取的日期
.DateLastModified 最後一次修改的日期

DateCreated　　　　 傳回指定檔案或資料夾的建立日期和時間
DateLastModified　　傳回最後一次修改指定檔案或資料夾的日期和時間