使用目錄中的每個文件類型填充組合框

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個文件：

• File1.jpg
• File2.jpg
• File3.png
• File4.mp3
• File5.mp3
• File6.dat
• File7.dat
• File8.tif
• File9.jpg
• File10.mp3

在這些10個文件，有6個文件擴展名是不同的文件擴展名：

• .jpg的
• 巴
• MP3播放
• 逸
• tif

如何將每個1這些文件擴展名加載到ComboBox中，而不是僅僅重複它？

Answer 1

你可以使用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 

Answer 2

使用LINQ在一個批量中添加組合框的所有擴展名。

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