列出文件夹名称代码

Sub 列出文件夹名称()
Dim fso As New Scripting.FileSystemObject
Dim sfolder As Folder
Dim i As Integer
On Error Resume Next
i = 2
With Sheet1
    For Each sfolder In fso.GetFolder("C:\").SubFolders
        .Cells(i, 1) = sfolder.Name
        .Cells(i, 2) = Round(sfolder.Size / 1024, 2) & "KB"
        .Cells(i, 3) = sfolder.ShortName
        i = i + 1
    Next
End With
Set fso = Nothing
End Sub