一个关于搜索目录的问题？我是VB新手，请大家多指教

Question

我的界面有一个文本框，一个dirlistbox,drivelistbox，
现在我要在文本框中输入一个目录，然后进行对当前驱动器的遍历查找，在一个listbox中显示出来。
请问应该如何解决？用dir()?

Answer 1

控件自己添加
执行速度有点慢！
Public Sub ShowFloder(strDir As String, objDir As Object)
    On Error Resume Next
    Dim lngCount As Long
    Dim i As Long
    Dim strPath As String
    With objDir
        .Path = strDir
        lngCount = .ListCount
        For i = 0 To lngCount - 1
            .Path = strDir
            strPath = .List(i)                  
            Call AddItemToList(strPath, List1)              
            Call ShowFloder(strPath, objDir)    
        Next
    End With
End SubPrivate Sub AddItemToList(ByVal strText As String, ByRef objList As Object)
    objList.AddItem strText
End SubPrivate Sub Command1_Click()
    Call ShowFloder("c:\", Dir1)
    MsgBox List1.ListCount
End Sub