Excel VBA 獲取指定路徑下的文件夾名稱

Sub getfoldername() '獲取指定路徑下的文件夾名稱
Dim fs As Object
n = 1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("C:\Lx\all")
For Each fd In f.subfolders
Cells(n, 1) = fd.Name
n = n + 1
Next
Set f = Nothing
Set fs = Nothing
End Sub