Frage Entwicklung Visual Studio

gelöst Ordnerstruktur von IMAP Server in Treeiew darstellen VB.NET

 Public client as New ImapX.Client(imap.domain.tld, 143, False)

 Public Sub buildfolders(ByVal client As ImapX.ImapClient)

        'Ordnersturktur vom Server auslesen udn in TreeView ausgeben

        folders = client.Folders

        For Each Folder In folders

            foldername = Folder.Name

            If foldername = "Entw&APw-rfe" Then

                FrmMain.sidebar.Nodes.Add("Entwürfe")

            Else

                FrmMain.sidebar.Nodes.Add(foldername)

            End If

            If folders.Item(foldername).SubFolder.Count > 0 Then

                Call buildsubfolders(client, foldername)

            End If

        Next

    End Sub

    Public Sub buildsubfolders(ByVal Client As ImapX.ImapClient, ByVal foldername As String)

        index = 0

        Do

            Select Case folders.Item(foldername).SubFolder(i).ToString()

                Case "Papierkorb"

                Case "Entw&APw-rfe"

                Case "Postausgang"

                Case "Spam"

                Case Else

                    FrmMain.sidebar.Nodes(index).Nodes.Add(folders.Item(foldername).SubFolder(i).ToString())

            End Select

            i += 1

        Loop Until i = folders.Item(foldername).SubFolder.Count

        i = 0

    End Sub