VB搜索文件夹的问题

这是我写的一个关于列出每个地址中全部文件夹的完整程序：
Option Explicit
Private Sub Command1_Click()

search

End Sub

Private Sub Command2_Click()
List1.Clear
List2.Clear
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Sub search()

Dim filename As String

Dim filecount() As String '在这里定义一个动态数组用来枚举每一个文件夹名字

Dim i As Integer
i = 0
filename = Dir(Text1.Text & Text2.Text, vbDirectory)

List1.AddItem filename

Do While filename <> ""

If GetAttr(Text1.Text & Text2.Text & "\" & filename) = vbDirectory Then '判断是否文件夹,若是即加入数组

i = i + 1

ReDim Preserve filecount(1 To i) '用preserve保留数组原有数据

filecount(i) = filename '不断更新数组中最后一个数

List2.AddItem filecount(i) '将文件夹的名字显示在list2列

用vb搜索文件夹 vb搜索字符串的问题 用VB或VC实现搜索共享文件夹的功能 关于VB模糊搜索的问题 VB 一个循环搜索的问题 VB搜索数据库问题 VB 怎样搜索文件夹123并且删除其下面的文件夹和所有文件? 用VB自定义文件夹图标的问题 VB WebBrowser 显示本地文件夹的问题 VB 复制文件夹问题