Question

怎样批量获取文件的 “创建内容的时间、创建日期、修改日期”。最好能用VBA 或者变成EXCEL列表，求大神

Answer 1

Sub GetFileTime()
    Dim i As Integer
    i = 1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fs = fso.getfolder("d:\.").Files
    With Sheet1
        .Cells(1, 1) = "序号": .Cells(1, 2) = "创建时间": .Cells(1, 3) = "最后修改时间": .Cells(1, 4) = "最后访问时间"
        For Each f In fs
            i = i + 1
            .Cells(i, 1) = f.Name: .Cells(i, 2) = f.datecreated: .Cells(i, 3) = f.DateLastModified: .Cells(i, 4) = f.DateLastAccessed
        Next
    End With
End Sub

以上即是VBA代码，运行后自动将D盘根目录下的文件名称和相关时间属性填写在Sheet1中，见下图效果：

追问

谢谢您 但是我想要的是，
“创建内容的时间、创建日期、修改日期”
后面两个解决了 怎样获得创建内容的时间？

追答

文件属性就是这三个方面啊。你说的那个应该是最后修改时间，只是说法不同罢了。你自己对照看看吧。

追问

不一样的，创建内容时间与最后修改时间不同

有其他办法的欢迎沟通，解决了可以留下QQ或微信，我会发个小红包

追答

这个获取文件时间相关属性的方法应该没有问题的，其实获取的内容即是点文件看属性的三个时间内容，如下图：

你对比看一看吧，只是不知道你究竟需要的是什么数据？你可以参考这个方法自行处理。希望对你有帮助。

追问

谢谢你啊，我找到办法了。我会采纳你的回答。
我是用下面云盘链接中（代码太长方不上这里）代码解决的
代码列出了260个属性，这个260是可以改的，（上限是多少我也不知道，好像可以把所有的属性列出）
然后列出的属性中，就包含我上面要的
大家学习一下吧
http://pan.baidu.com/s/1bYHn6A