Vb.net 选择子文件夹（如果有）

我想验证子文件夹是否存在，然后选择这些子文件夹

我使用

getDefaultfolder

选择一个文件夹，如：

' INBOX 
siFolder = Ctype(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox), Outlook.Folder)
' SENT ITEMS 
siFolder = Ctype(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail), Outlook.Folder)
etc ... 

Where ... 
app = New Outlook.Application()
ns = app.Session

---

它工作正常，但我看不到是否存在子文件夹，我不知道如何选择它们。

堆栈溢出有一个问题（很遗憾），你可以按照法国Stackoveflow在Area51上的建议来推广这个网站：你的目标是什么，为什么需要选择文件夹？您可以使用Folders.Count获取文件夹的计数。如果答案大于0，则存在子文件夹。

 Private Sub  CreateNewFolder()
        Dim oApp As Outlook.Application = New Outlook.Application
        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("MAPI")
        Dim InboxFolder As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        Dim customFolder As Outlook.MAPIFolder
        Try
            For i = 1 To InboxFolder.Folders.Count
                If InboxFolder.Folders.Item(i).Name = "Vellaichamy" Then
                    Exit Sub
                End If
            Next
            customFolder = InboxFolder.Folders.Add("Vellaichamy", Outlook _
           .OlDefaultFolders.olFolderInbox)
            InboxFolder.Folders("Vellaichamy").Display()
        Catch ex As Exception
            MessageBox.Show("The following error occurred: " & ex.Message)
        Finally
            ' Clean up.
            oApp = Nothing
            oNS = Nothing
            InboxFolder = Nothing
            customFolder = Nothing
        End Try
    End Sub