從小我們就知道組的概念，我們?nèi)绾伟碫B.NET擴(kuò)展名分組呢?這里就和大家一起分享一下吧。

VB.NET擴(kuò)展名分組案例：

Public Class Form1  
'按照擴(kuò)展名分組文件  
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 + "擴(kuò)展名的文件如下：")  
For Each MyFileInfo In MyFileGroup.MyFileGroup  
Me.listBox1.Items.Add(MyFileInfo.Name)  
Next  
Me.listBox1.Items.Add("")  
Next  
End Sub  '更多.net源碼和實(shí)例，來自樂博網(wǎng) 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擴(kuò)展名分組的實(shí)例，大家可以試試。

【編輯推薦】

1. VB.NET編寫托盤程序經(jīng)驗(yàn)雜談
2. 手把手指導(dǎo)VB.NET Socket編程
3. 快速了解VB.NET可選參數(shù)
4. 詳細(xì)介紹VB.NET MyClass
5. 自己動(dòng)手用代碼實(shí)現(xiàn)VB.NET ListView加載數(shù)據(jù)