如何使用Excel VBA以秒为单位获取Windows扩展文件属性日期/时间？

Question

我正在使用VBA objFolder.GetDetails方法读取多个文件的Windows 7扩展文件属性。我注意到，所有时间仅以小时和分钟为单位：

3   Date modified: 8/16/2018 3:42 PM
4   Date created: 9/11/2018 10:11 AM
5   Date accessed: 9/11/2018 10:13 AM

如何用小时：分钟：秒来写出这些日期？

Answer 1

您需要使用FileSystemObject而不是Shell对象，我假设您正在使用所使用的GetDetails方法中的Shell对象。

Xamarin.Android.Support.v7.CardView

Answer 2

发件人：

https://gallery.technet.microsoft.com/scriptcenter/4a4cb944-2342-4f80-a2c6-44be76185825

Sub Tester()

    Dim arrHeaders(34)

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace("C:\_Stuff\test")

    For i = 0 To 33
        arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
    Next

    For Each strFileName In objFolder.Items
        For i = 0 To 33
            Debug.Print i & vbTab & arrHeaders(i) _
                & ": " & objFolder.GetDetailsOf(strFileName, i)
        Next
    Next

End Sub

您应该能够使其适应您的需求。