vb怎么用TreeView控件列出本地机器上的所有文件夹和文件

'****************************************************
'*组名称：SearchFiles
'*组说明：遍历某个目录中指定文件。
'*语法说明：SearchFiles(Path , FileType, ListObj, ImageIndex)
'*语法说明：[Path]：要遍历的路径；[FileType]：文件类型；[ListObj]：指定树形列表控件
'*语法说明：[ImageIndex]：指定树形列表控件图像Index
'*返回值：
'*注意事项：使用树形控件前必须将其初始化。
'*组作者：gaochongjun1
'****************************************************
Function SearchFiles(Path As String, FileType As String, ListObj, ImageIndex As Integer)
Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim AB, BA, c As Long
Dim sPath As String
sPath = Dir(Path & FileType) '查找第一个文件
Do While Len(sPath) '循环到没有文件为止
AB = AB + 1
ReDim Preserve Files(1 To AB)
Files(AB) = sPath '将文件目录和文件名组合,并存放到数组中
'加入树形列表中
With ListObj
With .Nodes
.Add "a0", 4, Files(AB), Files(AB), "Menu"
End With
End With

sPath = Dir '查找下一个文件
DoEvents '让出控制权
Loop
sPath = Dir(Path & "\", vbDirectory) '查找第一个文件夹
Do While Len(sPath) '循环到没有文件夹为止
If Left(sPath, 1) <> "." Then '为了防止重复查找
If GetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。
BA = BA + 1
ReDim Preserve Folder(1 To BA)
Folder(BA) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If
sPath = Dir '查找下一个文件夹
DoEvents '让出控制权
Loop
For c = 1 To BA '使用递归方法，遍历所有目录
SearchFiles Folder(c), FileType, ListObj, ImageIndex
Next
End Function