使用VBA列出文件夹和属性（date最后修改）

我有一个下面列出的VBA代码列出父文件夹中的所有文件夹名称。 我试图另外列出文件夹属性，特别是'上次修改date'。 我知道这是可能的文件夹中的文件，但在这种情况下，它的文件夹，我需要这个。

我尝试使用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