Bygge Fil-Tre i TreeView

[Richard87]

Jeg vil bygge et komplett Fil-Tre i TreeView, til na har jeg greid og listet alle de lokale hardiskene, men jeg kommer ikke lenger, tipper jeg trenger noen 'rekursive-funksjoner', men har ikke helt kontrollen der enda.. noen som kan hjelpe..

 

Problemet mitt er at alle filene ma komme pa rett plasering i tre strukturen...

 

her er koden min:(sa langt, uten noen av filene)

Private Sub ListFiles()
Dim WMI As New clsWMI
Dim Harddrives() As String, bInit As Boolean, X As Long, Folders() As String, bInitFolders As Boolean, sNext As String, sKey As String
WMI.Initialize
bInit = False

'List Drives:
Dim objLogicalDisk As Object
For Each objLogicalDisk In WMI.Instance("Win32_LogicalDisk")
   
   Dim sDisk As String, sDescription As String
   sDisk = objLogicalDisk.DeviceID
   sDescription = objLogicalDisk.Description
   If InStr(1, sDescription, "Local") <> 0 Then
       treeMain.Nodes.Add , , sDisk, sDisk
       If Not bInit Then
           ReDim Harddrives(0) As String
           bInit = True
       Else
           ReDim Preserve Harddrives(UBound(Harddrives) + 1) As String
       End If
       Harddrives(UBound(Harddrives)) = sDisk
   End If
Next

Set objLogicalDisk = Nothing
Set WMI = Nothing

End Sub

bare legg til clsWMI

 

PS. tenkte pa og legge til sub-nodes etterhvert som en bruker 'expandet' en node... men fikk ikke det heller til:( noen som har noen forslag?

clsWMI.txt

Endret 30. januar 2006 av Richard87