從小我們就知道組的概念，我們如何按VB.NET擴展名分組呢?這里就和大家一起分享一下吧。

VB.NET擴展名分組案例：

Public Class Form1  
'按照擴展名分組文件  
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click  
Dim MyDir As String = Me.textBox1.Text  
Dim MyFiles As IEnumerable(Of System.IO.FileInfo) = GetFiles(MyDir)  
Dim MyQueryGroup = From MyFile In MyFiles _  
Group MyFile By MyExt = MyFile.Extension.ToLower() _  
Into MyFileGroup = Group _  
Order By MyExt  
Me.listBox1.Items.Clear()  
For Each MyFileGroup In MyQueryGroup  
Me.listBox1.Items.Add("包含" + MyFileGroup.MyExt + "擴展名的文件如下：")  
For Each MyFileInfo In MyFileGroup.MyFileGroup  
Me.listBox1.Items.Add(MyFileInfo.Name)  
Next  
Me.listBox1.Items.Add("")  
Next  
End Sub  '更多.net源碼和實例，來自樂博網 www.lob.cn  
Function GetFiles(ByVal MyDir As String) As IEnumerable(Of System.IO.FileInfo)  
If (Not System.IO.Directory.Exists(MyDir)) Then  
Throw New System.IO.DirectoryNotFoundException()  
End If  
Dim MyFileNames As String()  
Dim MyFiles As List(Of System.IO.FileInfo) = New List(Of System.IO.FileInfo)()  
'查找指定目錄下的所有子目錄中的所有文件  
'MyFileNames = System.IO.Directory.GetFiles(MyDir, "*.*", _  
'System.IO.SearchOption.AllDirectories)  
MyFileNames = System.IO.Directory.GetFiles(MyDir)  
For Each MyName As String In MyFileNames  
MyFiles.Add(New System.IO.FileInfo(MyName))  
Next  
Return MyFiles  
End Function  
End Class 

以上就是VB.NET擴展名分組的實例，大家可以試試。

【編輯推薦】

1. VB.NET編寫托盤程序經驗雜談
2. 手把手指導VB.NET Socket編程
3. 快速了解VB.NET可選參數
4. 詳細介紹VB.NET MyClass
5. 自己動手用代碼實現VB.NET ListView加載數據