vb怎样获取电脑中所有文件夹名称？

Question

就是把这些扫描到文件夹路径显示在list中

Answer 1

VB6 中利用 Dir 函数就可以。如下：
‘定义变量
Dim myPath, myName
'设定要扫描文件夹目录，如 D:\根目录
myPath = "D:\"
myName = Dir(myPath, vbDirectory)
'遍历文件及子目录，装载在 ListBox 控件中
Do While myName <> ""
If myName <> "." And myName <> ".." Then
If (GetAttr(myPath & myName) And vbDirectory) = vbDirectory Then
List1.AddItem myPath & myName
End If
List.AddItem myName
End If
Loop追问

是包括子文件夹的

追答

If (GetAttr(myPath & myName) And vbDirectory) = vbDirectory Then

这句就是判断是否是子目录，如果想查看子目录中的文件，方法和给出的循环语句一样，再次判断子目录中的文件了。