如何搜索任意一个目录下的所有文件夹,并显示出来

[sonicloveaivo]

如何搜索任意一个目录下的所有文件夹,并显示出来

[jianglifen]

说明白些

[benqcsdn]

Private Sub Command1_Click()
Dim folderpath As String
Dim foldername As String
folderpath = "c:\"
foldername = Dir(folderpath, vbDirectory)
Do While foldername <> ""
foldername = Dir
If foldername = "" Then Exit Do
List1.AddItem foldername
Loop
End Sub

一个CommandButton,一个ListBox