在 VB.NET 中没有子文件夹的列表框中列出文件

Question

我看到每个人都在尝试在他们的代码中添加他们的子文件夹。我想把我的拿出来。我有一个需要读取的文件夹，但不需要读取其中的子文件夹。我还试图从两个不同的文件夹读取到一个列表框中。目前在我的程序中我有两个列表框和 3 个不同的位置。我需要将两个文件夹合并到一个列表框中，正如我所说，将子文件夹放在外面。

HourlyList.SelectionMode = SelectionMode.MultiSimple
HourlyList.Items.Clear()
Dim directory = "C:\filepath\filepathFolder"
Dim dirinfo AS New System.IO.DirectoryInfo(directory)
list = dirinfo.GetFiles(2DArray(Row,Column) + "*", IO.SearchOption.AllDirectories)
For Each file In list
    HourlyList.Items.Add(file) 

Answer 1

如果您不想要子文件夹，为什么不使用

SearchOption.TopDirectoryOnly

？您可以使用

EnumerateFiles

和

Concat

获取两个文件夹中的所有文件：

Dim filesFolder1 = directory1.EnumerateFiles("*", SearchOption.TopDirectoryOnly)
Dim filesFolder2 = directory2.EnumerateFiles("*", SearchOption.TopDirectoryOnly)

For Each file In filesFolder1.Concat(filesFolder2)
    HourlyList.Items.Add(file)
Next