Question

vb 如何获取文件夹列表，显示在ListBox中，并将文件夹名称作为变量

Answer 1

Sub 获得文件夹列表()
    Dim f
    f = Dir("D:\aaa\", 16)  '在括号内输入你指定的目录
    Do While f <> ""
        If InStr(f, ".") = 0 Then
            ListBox1.AddItem f
        End If
        f = Dir    ' 查找下一个目录
    Loop
End Sub

Answer 2

文件夹名称存在 sSub 数组中。
Public Sub Search(ByVal sPath As String)
Static lngFiles As Long
Dim sDir As String
Dim sSub() As String
Dim lngIndex As Long
Dim lngTemp&
DoEvents
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
lngIndex = 0
sDir = Dir(sPath & "*.*", vbDirectory)
Do While Len(sDir)
DoEvents
If Left(sDir, 1) <> "." And Left(sDir, 1) <> ".." Then
If GetAttr(sPath & sDir) And vbDirectory Then
lngIndex = lngIndex + 1
ReDim Preserve sSub(1 To lngIndex)
sSub(lngIndex) = sPath & sDir
List1.AddItem sSub(lngIndex)
DoEvents
End If
End If
sDir = Dir
Loop
End Sub
Private Sub Command1_Click()
Search "c:\"
End Sub