使用VBA列出文件夹和属性（上次修改日期）

Question

我在下面列出了一个VBA代码，其中列出了父文件夹中的所有文件夹名称。我正在尝试另外列出特定的文件夹属性，＆＃39;日期上次修改＆＃39;。我知道这对文件夹中的文件是可能的，但在这种情况下，它是我需要的文件夹。

我尝试使用FileSystemObject，但我遇到问题，不确定我的原始代码是否是问题。

有人可以帮助我指明我接下来可以做些什么。

这是我的原始代码：

Sub GetFolders()
Dim path As String
Dim folder As String
Dim row As Integer


path = "\\C:bla bla\"
folder = Dir(path, vbDirectory)
row = 1

Do While folder <> ""
If (GetAttr(path & folder) And vbDirectory) = vbDirectory Then
    Cells(row, 1) = path & folder
    row = row + 1
End If
folder = Dir()
Loop

End Sub

Answer 1

FileDateTime()可以做到这一点。

循环内部：

Cells(row, 1) = path & folder
If (folder <> "." And folder <> "..") Then
    Cells(row, 2) = FileDateTime(path & folder)
End If
row = row + 1