如何用VBA碼獲取指定文件夾中所有子文件夾的名稱？

Set fso=CreateObject("Scripting。文件系統對象”)

設置folder=fso。GetFolder("D:")

將()作為字符串變暗

dim b

b=1

對於folder.subfolders中的每個內容

添加文件夾fso，thing，a，b

然後

msgbox b

函數addfolder(byref fso，byref dir，byref a，byref b)

set folder=fso.getfolder(dir)

a(b)=dir

b=b+1

文件夾裏的每樣東西。子文件夾

set folder=fso.getfolder(thing)

事物

b=b+1

添加文件夾fso，thing，a，b

然後

結束功能