EXCEL获取文件夹名称

Sub getFldList1()

    Dim Fso, Fld

    Dim Arr(999), k%

    Set Fso = CreateObject('Scripting.FileSystemObject')

    Set Fld = Fso.getfolder('C:\tmp')

    For Each fd In Fld.subfolders

        k = k + 1

        Arr(k) = fd.Name

    Next

    [A1].Resize(k) = Application.Transpose(Arr)

End Sub