vb.net - GetDirectory はすべてのディレクトリを一覧表示しません

Question

OpenFileDialog をトリガーするボタンをクリックできるフォームがあります。そこから、そのフォルダー内の特定のファイルを選択すると仮定すると、プログラムはフォルダー内にあったフォルダーから移動し、/subjectsそれらのディレクトリを一覧表示することになっています。

現在、 、、および内に 3 つのディレクトリが/subjectsあります。englishmathematicscte

私の問題は、プログラムを実行すると、コンボボックスに英語のディレクトリのみがリストされ、他のディレクトリはリストされないことです。

    Private Sub btnDocumentChoice_Click(sender As Object, e As EventArgs) Handles btnDocumentChoice.Click
    Dim ofd As New OpenFileDialog
    Dim DirList As New ArrayList
    If ofd.ShowDialog = Windows.Forms.DialogResult.OK AndAlso ofd.FileName <> "" Then
        strRootLocation = (Path.GetDirectoryName(ofd.FileName))
        GetDirectories(strRootLocation + "/subject/", DirList)
        'MessageBox.Show(Path.GetDirectoryName(ofd.FileName))
    End If
End Sub


Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    strRootLocation = OpenFileDialog1.FileName
    cmbSubject.Items.Add(strRootLocation)
End Sub

Sub GetDirectories(ByVal StartPath As String, ByRef DirectoryList As ArrayList)
    Dim Dirs() As String = Directory.GetDirectories(StartPath)
    DirectoryList.AddRange(Dirs)
    For Each Dir As String In Dirs
        GetDirectories(Dir, DirectoryList)
        cmbSubject.Items.Add(Replace(Path.GetDirectoryName(Dir), strRootLocation + "\subject", ""))
        cmbSubject.Items.Remove("")
    Next
End Sub