请教dir目录控件 可以用dir1.listcount可以得到总共的目录数，可怎么得到每一个目录下面是否再有目录，如果有怎么可以得到有多少个子目录

Question

Private Sub Command1_Click()
    Dir1.Path = "f:\"
    GetAllFolders LstBox, Dir1
End SubPrivate Sub GetAllFolders(Lst As ListBox, ByVal Dir As DirListBox)
    Dim i As Long, Count As Long, sTemp As String
     
    With Dir
        Count = .ListCount
        If Count <> 0 Then
            For i = 0 To Count - 1
                Lst.AddItem .List(i)
                sTemp = .Path
                Dir.Path = .List(i)
                GetAllFolders Lst, Dir
                Dir.Path = sTemp
            Next
        End If
    End With
End Sub

Answer 1

谢谢 如何判断list中是否有值啊

Answer 2

就是 如何判断ListBox中是否有值

Answer 3

他有个ListCount属性，如果为0的话，也就是没值了