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