vb扫描c盘下的所有文件夹（包括子文件夹），把这些文件夹名称显示在text1中，代码应该怎么写？

Question

如题所述

Answer 1

将Text1设置成多行属性，代码如下：
' 显示 C:\ 目录下的名称。
Dim MyDirectory As String
MyDirectory = ""

Dim MyPath As String
Dim MyDirectoryName As String

MyPath = "C:\" ' 指定路径。
MyDirectoryName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyDirectoryName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyDirectoryName <> "." And MyDirectoryName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyDirectoryName) And vbDirectory) = vbDirectory Then
MyDirectory = MyDirectory & MyDirectoryName & vbCrLf
End If

End If
MyDirectoryName = Dir ' 查找下一个目录。
Loop

Text1.Text = MyDirectory