提取文件夹名称 

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
posted @ 2011-07-08 16:48  Statmoon  阅读(240)  评论(0)  编辑  收藏  举报