VB用TreView罗列出指定目录下的所有目录及文件，并自动加上系统图标

准备工作需要加入控件，选择与已选中的“Microsoft Windows Common Controls X.X”相关的文件名。对于旧文件，版本号是 5.0，对于新文件，版本号是 6.0。

窗体加入一个按钮，一个Treeview，改名为FileList，一个Imagelist改名为Img，Imagelist的大小我这里设置为16x16,插入一个图标作为文件夹的图标，

窗体中代码好下：

Private Sub Form_Load()
    Me.WindowState = 0
End Sub

Private Sub Command1_Click()
        Dim loaddd As String
        Dim stMap As Object
        MsgBox Command1.Caption & "存档路径没有设置", vbInformation, "技术文件及规范"
        loaddd = "请选择" & Command1.Caption & "存档路径:"
        Set stMap = CreateObject("shell.application").BrowseForFolder(0, loaddd, &H1)
        If Not stMap Is Nothing Then
            FileLoad = stMap.self.Path & "\"
        Else
        End If
        Set stMap =