使用目录中的每个文件类型填充 ComboBox

Question

基本上，我有一个ComboBox，我想用来自特定Directory 的File Extensions 填充它。

目前，我正在使用：

Dim dir = "C:\"
For Each file As String In System.IO.Directory.GetFiles(dir)
   cmb_FileTypes.Items.Add(System.IO.Path.GetExtension(file))
Next

这不能正常工作，因为它基本上会加载目录中所有文件的所有扩展名。我想要它，以便它显示每个 ONE 文件类型。例如，如果有 10 个文件：

• 文件1.jpg
• 文件2.jpg
• 文件3.png
• 文件4.mp3
• 文件5.mp3
• 文件6.dat
• 文件 7.dat
• 文件8.tif
• 文件9.jpg
• 文件10.mp3

在这 10 个文件中，有 6 个文件扩展名是不同的文件扩展名：

• JPG
• PNG
• MP3
• 时间
• tif

如何将这些文件扩展名中的每一个加载到 ComboBox 中，而不是重复它？

Answer 1

使用LINQ 将所有扩展名一次性添加到组合框。

cmb_FileTypes.Items.AddRange((From name In Directory.GetFiles(dir) Select Path.GetExtension(name).Replace(".", "") Distinct).ToArray())

Answer 2

您可以使用 LINQ 对扩展进行分组

For Each file As String In Directory.GetFiles(dir).[Select](Function(p) Path.GetExtension(p)).Distinct().OrderBy(Function(p) p).ToList()
    cmb_FileTypes.Items.Add(System.IO.Path.GetExtension(file))
Next

或者您可以创建一个返回包含唯一扩展名的List<string> 的方法。

Public Function UniqueExtensions(filenames As String()) As List(Of String)
    Dim extSet As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase)
    For Each file As String In filenames
        extSet.Add(System.IO.Path.GetExtension(file))
    Next
    Return extSet.ToList()
End Function