如何按VB.NET擴展名分組

這篇文章將為大家詳細講解有關(guān)如何按VB.NET擴展名分組，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：域名與空間、虛擬主機、營銷軟件、網(wǎng)站建設(shè)、坡頭網(wǎng)站維護、網(wǎng)站推廣。

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源碼和實例，來自樂博網(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

關(guān)于“如何按VB.NET擴展名分組”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。

網(wǎng)頁題目：如何按VB.NET擴展名分組
文章URL：http://muchs.cn/article42/ihihhc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、標簽優(yōu)化、電子商務(wù)、動態(tài)網(wǎng)站、面包屑導(dǎo)航、手機網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)