返回列表 上一主題 發帖

[發問] 請問如何列出某資料夾內所有資料夾名稱

mlbolerud

帖子
32 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-4-28 
最後登錄
2021-7-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享
MLB

mlbolerud

帖子
32 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-4-28 
最後登錄
2021-7-6 
2#
發表於 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
MLB

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題