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

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

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

Sub-GetFolders（）
将路径设置为字符串
将文件夹设置为字符串
将行设置为整数
path=“\\C:bla-bla\”
folder=Dir（路径，vbDirectory）
行=1
在文件夹“”中执行操作
如果（GetAttr（路径和文件夹）和vbDirectory）=vbDirectory，则
单元格（行，1）=路径和文件夹
行=行+1
如果结束
folder=Dir（）
环
端接头

FileDateTime（）

可以做到这一点

在循环内部：

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

单元格（行，1）=路径和文件夹
如果（文件夹“.”和文件夹“.”），则
单元格（第2行）=FileDateTime（路径和文件夹）
如果结束
行=行+1

FileDateTime（）

可以做到这一点

在循环内部：

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

单元格（行，1）=路径和文件夹
如果（文件夹“.”和文件夹“.”），则
单元格（第2行）=FileDateTime（路径和文件夹）
如果结束
行=行+1