Can't get email folder name using IMAPX VB.NET

Question

0.00/5 (No votes)

See more:

I am using this code to get the list of email folders :

VB

Class emailFolder
          Public Property Title As String
      End Class

        Public Shared Function GetFolders() As List(Of emailFolder)
          Dim folder = New List(Of emailFolder)
          Dim foldername = client.Folders
          For Each parentFolder In foldername
              Dim parentPath = parentFolder.Path
              If parentFolder.HasChildren Then
                  Dim subfolders = parentFolder.SubFolders
                  For Each subfolder In subfolders
                      Dim subPath = subfolder.Path
                      folder.Add(New emailFolder With {.Title = parentFolder.Name})
                  Next
              End If
          Next
          Return folder
      End Function

      Public sub btn_click handles Button1.click

      ListView.ItemSource=GetFolders

I dunno what is wrong with my code but the items i get in the listview(i'm in wpf by the way) look like this :

MyApplication++emailfolder
MyApplication++emailfolder
MyApplication++emailfolder
MyApplication++emailfolder

What am i doing wrong ?

What I have tried:

What i've tried is already mentioned in the post above

Posted 6-Feb-18 21:55pm

Member 13336882

Updated 6-Feb-18 22:32pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Jochen Arndt · Answer 1 · 2018-02-06T22:32:00

Solution 1

You have an inner loop (foreach subfolder In subfolders) but create the name always from the parentFolder.

So it should be (untested)

VB

' Optionally add parent folder always here
'folder.Add(New emailFolder With {.Title = parentFolder.Name})
If parentFolder.HasChildren Then
    Dim subfolders = parentFolder.SubFolders
    For Each subfolder In subfolders
        folder.Add(New emailFolder With {.Title = subFolder.Name})
    Next
' If parent folder has not been added above, do it here.
Else
    folder.Add(New emailFolder With {.Title = parentFolder.Name})
End If

Posted 6-Feb-18 22:32pm

Jochen Arndt

Comments

Member 13336882 7-Feb-18 6:26am

same result

Member 13336882 7-Feb-18 6:28am

i don't get it...can u try the code urself and see if the result is the same

Jochen Arndt 7-Feb-18 8:06am

Sorry, I have VB.Net not installed.

You have used parentFolder.Name instead of subFolder.Name to add the name to the list. So all child folder names added to the list will be identical. You have also not added folder names for folders that does not have childs.

But your output "MyApplication++emailfolder" indicates that there is also something else wrong (you did not get the folder names).