請問各位前輩 、高手
小弟我想請問一下
如果想逐一列出 "某資料夾裡 , 所有資料夾名稱" , VBA有沒有什麼方式可做到呢?
我先前有寫過逐一列出 "某資料夾下所有檔案名稱" 如下
但是目前需求往上跳一層 , 抓取的物件名稱由 "檔案" 換成 "資料夾" , 有什麼好的建議嗎?
如果有好的建議, 還望不吝賜教
感謝~
Sub test() '''''''' 列出資料夾內所有.csv檔案名稱
Sheets(4).Activate
p = Cells(21, 1) ''''''' path
f = Dir(p & "*.csv")
If f = "" Then Exit Sub
n = 1
Do While f <> ""
Cells(n, 10) = f
n = n + 1
f = Dir()
Loop
End Sub |