提取文件夹名称

1 Private Sub Command()
2     Dim dd As String
3     dd = Dir("d:\*", vbDirectory)
4     Do
5         MsgBox dd
6         dd = Dir
7     Loop Until Len(dd) = 0
8 End Sub
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/leolis/p/2101168.html