Board logo

標題: [發問] 請問如何列出某資料夾內所有資料夾名稱 [打印本頁]

作者: mlbolerud    時間: 2020-3-7 14:21     標題: 請問如何列出某資料夾內所有資料夾名稱

請問各位前輩 、高手
小弟我想請問一下
如果想逐一列出 "某資料夾裡 , 所有資料夾名稱"  , 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
作者: mlbolerud    時間: 2020-3-8 09:40

各位大大、前輩 :
小弟我找到答案了, 先前就有前輩提供過類似的解答, 再和大家分享一下
只要加入vbDirectory就可以囉

Sub list_and_link1()
n = 1
path1 = "C:\Users\user\Desktop\folders\"    ''''''' 搜尋位置
file1 = Dir(path1, vbDirectory)  '''''''' 只處理資料夾
Do While file1 <> ""
    If file1 <> (".") And file1 <> ("..") Then
        Cells(n, 2) = file1
    End If
    n = n + 1
    file1 = Dir
Loop
End Sub




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)