VB 获取文件夹的名字？

Question

谢谢
是文件夹的名字！！！

Answer 1

Private Sub Command1_Click()
Dim i As String
Dim pathstr As String

pathstr = "d:\" '父目录
i = Dir(pathstr, vbDirectory) '取第一个
Do While i <> "" '不为空就循环
If i <> "." And i <> ".." Then '如果不是 当前目录及上一级目录 . 及 ..
If (GetAttr(pathstr & i) And vbDirectory) = vbDirectory Then '是否是目录
List1.AddItem i '确定是目录,添加到列表,这里可以自己处理
End If
End If
i = Dir '取下一个
Loop

End Sub本回答被提问者采纳

Answer 2

用个控件吧