Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Name As String
        Dim mOClass As System.Management.ManagementClass
 
        mOClass = New ManagementClass( _
          "\\DERCOMUTER\ROOT\CIMV2:Win32_LogicalDisk")
        Dim mOc As ManagementObjectCollection = mOClass.GetInstances
        Dim mOc2 As ManagementObjectCollection
 
        For Each mO As ManagementObject In mOc
            Name = CStr(mO.Item("Name"))
            Debug.WriteLine(Name)
            If Name = "C:" Then
                mOc2 = mO.GetRelated("Win32_Directory")
                For Each mO2 As ManagementObject In mOc2
                    FindSubFolder(mO2)
                Next
            End If
        Next
    End Sub
 
    Private Sub FindSubFolder(ByVal m As ManagementObject)
        Dim mOc As ManagementObjectCollection = m.GetRelated("Win32_Directory")
        Debug.WriteLine(mOc.Count)
        For Each mO As ManagementObject In mOc
            Debug.WriteLine(mO.Item("Name"))
        Next
    End Sub