Question

我有一个表单，允许您单击一个按钮，触发OpenFileDialog。从那里，您可以选择该文件夹中的特定文件，然后该程序应该从您在/subjects文件夹中的文件夹中找到并列出这些目录。

目前，我在/subjects中有3个目录：english，mathematics和cte。

我的问题是，当程序运行时，它只会在组合框中列出英文目录，而不会列出任何其他目录。

    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

Answer 1

我设法通过删除问题中的For Each循环来修复我自己的问题，并将其替换为：

        Dim directories As String
    For Each directories In Directory.GetDirectories(strRootLocation + "\subject")
        cmbSubject.Items.Add(Replace(directories, strRootLocation + "\subject\", ""))
    Next

GetDirectory不会列出所有目录

1 个答案: