VB.NET中怎么對文件排序

本篇文章為大家展示了VB.NET中怎么對文件排序，內(nèi)容簡明扼要并且容易理解，絕對能使你眼前一亮，通過這篇文章的詳細(xì)介紹希望你能有所收獲。

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 = GetFiles(MyDir)  Dim MyQuery = From MyFile In MyFiles _  Order By (GetLength(MyFile)) _  Select MyFile  Me.dataGridView1.DataSource = MyQuery.ToArray()  End Sub  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  Function GetLength(ByVal MyFileInfo As System.IO.FileInfo) As Long  Dim MyLength As Long = 0 Try  '更多.net源碼和實(shí)例  MyLength = MyFileInfo.Length  Catch ex As System.IO.FileNotFoundException  MyLength = 0 End Try  Return MyLength  End Function  End Class

上述內(nèi)容就是VB.NET中怎么對文件排序，你們學(xué)到知識或技能了嗎？如果還想學(xué)到更多技能或者豐富自己的知識儲備，歡迎關(guān)注億速云行業(yè)資訊頻道。