我想让资源管理器左边的条目里就能显示文件夹下的文件，类似treeview

Question

我需要资源管理器左边的部分，和资源管理器的结构一样，另外点击每个文件夹，不仅显示下面的子文件夹，而且包括文件夹内的文件，是不是只能用treeview重新编写一遍呢？如果用treeview的话，怎么才能显示这些桌面呀，控制面板呀，驱动器呀的

Answer 1

//是不是只能用treeview重新编写一遍呢？yes

Answer 2

这个容易，你用FSO(FileSystemObject)就可以得到你想要的东西了。

Answer 3

能举个例子码？
比如我Dim nodNew As Node
Dim drvDrives As Drives
Dim drvDrive As Drive
Dim fldFolders As Folders
Dim fldFolder As Folder
Dim lngImage As Long
Dim lngcpt As Long
On Error Resume Next
    Set objfso = New FileSystemObject
    Set drvDrives = objfso.Drives
    
    For Each drvDrive In drvDrives
        Select Case drvDrive.DriveType
        Case Removable
            lngImage = 1
        Case CDRom
            lngImage = 2
        Case Remote
            lngImage = 3
        Case Else
            lngImage = 4
        End Select
        
        Set nodNew = trvNavigate.Nodes.Add(, , drvDrive.DriveLetter & ":\", drvDrive.DriveLetter & ":", lngImage)
        
    Next这样我只是得到了所有的驱动器，怎么才能得到文件夹和文件呢？